Предмет: Информатика,
автор: superminer839
есть числа x,y,z надо найти Min(x,y,z)
Ответы
Автор ответа:
0
Код на с++:....................................................................................................
Приложения:
Автор ответа:
0
Программист, владеющий меньше чем пятеркой языков - любитель.
Автор ответа:
0
вот именно )
Автор ответа:
0
Но если Вы "в пятерке", и при этом не знаете Паскаль - это, простите, попросту смешно.
Автор ответа:
0
ok you got it) i'm not gonna prove anything about this. )
Автор ответа:
0
That's right ))
Автор ответа:
0
var
x,y,z,min:integer;
begin
Write('Введите три целых числа: '); Readln(x,y,z);
if x<y then min:=x else min:=y;
if z<min then min:=z;
Writeln('Min=',min)
end.
Тестовое решение:
Введите три целых числа: 2 3 1
Min=1
x,y,z,min:integer;
begin
Write('Введите три целых числа: '); Readln(x,y,z);
if x<y then min:=x else min:=y;
if z<min then min:=z;
Writeln('Min=',min)
end.
Тестовое решение:
Введите три целых числа: 2 3 1
Min=1
Приложения:
Интересные вопросы
Предмет: Английский язык,
автор: korobkinvi
Предмет: История,
автор: Аноним
Предмет: Қазақ тiлi,
автор: zkriazanel
Предмет: Математика,
автор: mashafa
Предмет: География,
автор: Elie000