Предмет: Информатика, автор: tuyaro4ka73

ввести с клавиатуры три числа a,b,c.
проверить,являются ли упорядоченными,то есть a<b<c
ПОМОГИТЕ ПОЖАЛУЙСТАвообще не шарю

Ответы

Автор ответа: ivan548
0
*могу писать с ошибками, давно паскаль изучал, но суть верна
begin
var a,b,c:integer;
Read(a);
Read(b);
Read(c);
if ((a<b) and (b<c)) then
writeln("Введено верно!");
else 
writeln("Введено неверно!");
end.

ivan548: Для понимая можно написать не read, a readln. Так красивее и нагляднее. Все им вроде и пользуются
ivan548: И слово begin пишется перед read(a); Попутал чуток
Автор ответа: Bkatya2001
0
Pascal
Program system
Var a, b, c : real;
Begin
Readln(a, b, c);
If (a < b) and (b < c) then
Writeln( ‘YES’ )
Else writeln( ‘NO’ );
End.

tuyaro4ka73: спасиибо
Похожие вопросы
Предмет: Английский язык, автор: Tommykir
Предмет: Алгебра, автор: 368468
Предмет: Математика, автор: mhousmusic