Напишите программу, вводящую целые числа до 0…

46

Напишите программу, вводящую целые числа до 0, и определяющую максимальное из введенных чисел. Сделать прошу в паскале. Заранееспасибо.

категория: информатика

ответить

в избранное

99

faaar

07 сентября 2022

var max,n: integer; Begin read (n); max: =n; while (n<>0) do begin if max < n then max: =n; read (n); end; writeln (max); End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Дано 2 целых числа A и B (A

Задача на паскале Задан массив А размерности N случайным образом

Составьте предложения по схемам на тему наши школьные дела, 1) Две основы…

Помогите пожалуйста написать прграмму решения программного уравнения в паскль ABCa*x+b=0

Переведите число 111 из десяти ной в двоичную систему счисления. Сколько Едениц содержит полученное число?

Алгоритм таблицы умнажения с помощью блок-схем… помогите плиз

Привести по три примера на каждый вид алгоритмической (ветвление. Цикл. Выбор.) структуры

Составить математическую модель задачи: Есть два числа…

5. Определить объем видеопамяти в Килобайтах для графического файла размером 640 480 пикселей и палитрой из 32 цветов

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...