Предмет: Информатика,
автор: wedgigehnhetnhegn
Помогите срочно пожалуйста
Ограничения [Время: 1000ms, Память: 128MB, Сложность: 2%]
Даны два целых числа. Вывести меньшее из них.
Входные данные:
Во входном потоке в первой строке через пробел заданы целые числа A и B (-30000 < A,B < 30000), A неравно B.
Выходные данные:
В выходной поток вывести единственное целое число.
Пример входного файла (input.txt):
-30000 45
Пример выходного файла (output.txt):
-30000
Ответы
Автор ответа:
0
var
a,b:integer;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite (output);
Read(input,a);
Read(input,b);
If a>b then min:=b else min:=a;
Write(output,min);
Close(input);
Close(output);
end.
a,b:integer;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite (output);
Read(input,a);
Read(input,b);
If a>b then min:=b else min:=a;
Write(output,min);
Close(input);
Close(output);
end.
Похожие вопросы
Предмет: Химия,
автор: maga0dan
Предмет: Алгебра,
автор: u1iana871
Предмет: Литература,
автор: bvikaa98
Предмет: Физика,
автор: ismaghilov2014