ИНФОРМАТИКА, ПАСКАЛЬ, 30 БАЛЛОВ
Составить программу, по которой на экране будет напечатано: «Числа равны (numbers are equal)», если все три заданных числа равны, в противном случае будет напечатано максимальное число.
Ответы
Ответ дал:
1
Объяснение:
Var x, y, z, i:integer;
Begin
Readln(x);
Readln(y);
Readln(z);
If x=y then begin
If y=z then Writeln('numbers are equal' )
else begin if y>z then Writeln(y) else Writeln(z)
End; end
else begin if x>y then i:=x else i:=y;
If i>z then Writeln(i) else Writeln(z) end;
End.
Аноним:
спасибо, спасли меня!
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад
7 лет назад