Напишите программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено число 0. В конце работы программы на экран выводится минимальное и максимальное из введенных чисел (не считая 0).
Ответы
Ответ дал:
0
program N94780249;
const
s: longint = 0;
var
x: longint;
t: string;
e: integer;
begin
writeln('Вводите целые числа (0 - окончание ввода) : ');
repeat
repeat
write('> ');
readln(t);
val(t, x, e);
if e <> 0 then
writeln('Ошибка! Повторите ввод. ')
until e = 0;
s += x
until x = 0;
if s = 0 then
writeln('Числа не вводились. ')
else
writeln('Сумма введённых чисел = ', s, #10);
write('Для завершения работы нажмите Enter...');
readln
end.
const
s: longint = 0;
var
x: longint;
t: string;
e: integer;
begin
writeln('Вводите целые числа (0 - окончание ввода) : ');
repeat
repeat
write('> ');
readln(t);
val(t, x, e);
if e <> 0 then
writeln('Ошибка! Повторите ввод. ')
until e = 0;
s += x
until x = 0;
if s = 0 then
writeln('Числа не вводились. ')
else
writeln('Сумма введённых чисел = ', s, #10);
write('Для завершения работы нажмите Enter...');
readln
end.
ЕнотЕнотыч:
Эм? В условии про сумму введенных чисел ничего не говорилось.
и сразу вы указываете s как константу, и в ходе программы хотите ее изменять..
перед тем как воровать чье-то решение, хотя бы удостоверились, что оно подходит под данное условие задачи -_-
Ответ дал:
4
Решение в прикрепленном файле :)
Приложения:
можно вопрос? а почему вы min и max приравниваете к a?
а что не так-то?
вот же ш.. немного подправить надо решение, оплашался я
изменил, теперь покатит
хм.. а если ввести просто 0 то он выдаст max=1 min=1
Ну вообще выводить будет 0.. но и это я поправил.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
9 лет назад