Предмет: Информатика,
автор: tuyaro4ka73
ввести с клавиатуры три числа a,b,c.
проверить,являются ли упорядоченными,то есть a<b<c
ПОМОГИТЕ ПОЖАЛУЙСТАвообще не шарю
Ответы
Автор ответа:
0
*могу писать с ошибками, давно паскаль изучал, но суть верна
begin
var a,b,c:integer;
Read(a);
Read(b);
Read(c);
if ((a<b) and (b<c)) then
writeln("Введено верно!");
else
writeln("Введено неверно!");
end.
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. Так красивее и нагляднее. Все им вроде и пользуются
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Физика,
автор: Аноним
Предмет: Английский язык,
автор: Tommykir
Предмет: Английский язык,
автор: krytoisova55
Предмет: Алгебра,
автор: 368468
Предмет: Математика,
автор: mhousmusic