Две задачи (работа в Pascal)
1)Ввести 3 числа ABC и определить равны ли веденные числа
2)Ввести 3 числа ABC и определить среднее из них
Ответы на вопрос
Ответил Programust
0
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.
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.
Новые вопросы
Українська література,
2 года назад
ОБЖ,
2 года назад
Геометрия,
9 лет назад
Математика,
9 лет назад
Химия,
9 лет назад