Задачи на языке паскаль помогите. Задано 3 числа проверить идут они по возростанию по убыванию или произвольно. Задано 2 числа найти их произведение.
Ответы на вопрос
Ответил Chudik32
0
1)
var
a,b,c:integer;
begin
readln (a,b,c);
if (a>b) and (b>c) then writeln ('Числа стоят по убыванию ');
if (a<b) and (b<c) then writeln (' Числа стоят по возрастанию');
end.
2)
var
a,b:integer;
begin
readln (a,b);
writeln (a*b);
end.
Новые вопросы
Математика,
6 лет назад
Английский язык,
6 лет назад
География,
10 лет назад
Геометрия,
10 лет назад
Математика,
10 лет назад