Дана последовательность целых чисел оканчивающихся нулём. Написать программку обретающее самое
Дана последовательность целых чисел заканчивающихся нулём. Написать программку обретающее самое великое число из всех чисел в последовательности. Программка для PascalABC
Марина Нешкович
Паскаль?
Даниил Жаляков
Да
1 ответ
Макс Кравежин
Var
A,M:integer;
Begin
WriteLn('Введите последовательность целых чисел');
M:=0;
Repeat
Read(A);
if Agt;M then M:=A;
Until A=0;
WriteLn(M)
End.
A,M:integer;
Begin
WriteLn('Введите последовательность целых чисел');
M:=0;
Repeat
Read(A);
if Agt;M then M:=A;
Until A=0;
WriteLn(M)
End.
Вася Тюляндин
Что такое Юнтил?
Шевердяева
Аделина
Циклы проходили?
Пимеков
Денчик
Не знаю, я в 6 классе, мы через вайл делали
Варвара
For - с параметром. While do - с предусловием. Repeat Until - с пост условием - это но объяснять?
Лариса Криворог
Спасибо! Я сообразил.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
Облако тегов