Вопрос по информатике:
Решите задачу на языке Paskal
Дано 3 числа. Найти наименьшее из них.
Пожаловаться
- 05.09.2017 00:44
- Информатика
- remove_red_eye 2171
- thumb_up 6
Ответы и объяснения 1
Var a,b,c,min: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
min:=a;
if b < min then min:=b;
if c < min then min:=c;
writeln(min);
end.
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
min:=a;
if b < min then min:=b;
if c < min then min:=c;
writeln(min);
end.
Пожаловаться
- 05.09.2017 00:02
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы