Задачи ** языке паскаль помогите. Задано 3 числа проверить идут они по возростанию по...

0 голосов
41 просмотров

Задачи на языке паскаль помогите. Задано 3 числа проверить идут они по возростанию по убыванию или произвольно. Задано 2 числа найти их произведение.


Информатика | 41 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

1)

var
a,b,c:integer;
begin
readln (a,b,c);
if (a>b) and (b>c) then writeln ('Числа стоят по убыванию ');
if (aend.

 

2)

var
a,b:integer;
begin
readln (a,b);
writeln (a*b);
end.

(666 баллов)