Две задачи (работа в Pascal)

1) Ввести 3 числа ABC и определить равны ли веденные числа

2) Ввести 3 числа ABC и определить среднее из них

Question

Информатика

Спиридоний

16 ноября, 23:51

Две задачи (работа в Pascal)

1) Ввести 3 числа ABC и определить равны ли веденные числа

2) Ввести 3 числа ABC и определить среднее из них

+3

Ответы (1)

Знаете ответ на вопрос?

Кира · Answer 1

1)

Program abc;

var a, b, c:integer;

Begin

writeln ('Введите числа') ;

readln (a, b, c) ;

if (a=b) and (b=c) then

writeln ('Равны')

else

writeln ('Не равны') ;

end.

2)

Program abc;

var a, b, c:integer;

x:real;

Begin

writeln ('Введите числа') ;

readln (a, b, c) ;

x: = (a+b+c) / 3;

writeln (x) ;

end.

Две задачи (работа в Pascal)1) Ввести 3 числа ABC и определить равны ли веденные числа2) Ввести 3 числа ABC и определить среднее из них

Две задачи (работа в Pascal)

1) Ввести 3 числа ABC и определить равны ли веденные числа

2) Ввести 3 числа ABC и определить среднее из них