Вход
Регистрация
О проекте Как заработать?
70

СРОЧНО! Составьте программу…

formlikom 02 сентября 2022

СРОЧНО! Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концомввода чисел является введенное число 0.

категория: информатика
ответить
в избранное

98

Program Pr1; uses crt; var max,a: integer; Beginclrscr; max: =0; a: =1; while a<>0 do begin readln (a); if a>max then max: =a; end; writeln (max); end.

пользователи выбрали этот ответ лучшим
комментировать
в избранное ссылка отблагодарить

Знаете другой ответ?
Другие вопросы по информатике
ksmksm
02 сентября 2022
1
ответ
Кому и как удалось разгадать тайну египетских иероглифов? Буд те добры помогите мне я вообще нешарю.
maidle
02 сентября 2022
1
ответ
Укажите файл чтобы прочесть инструкцию к игре: например; пятнашки.avi пятнашки.txt пятнашки.wav пятнашки.bmp пятнашки.com
fladik
02 сентября 2022
1
ответ
Два велосипеда одновременно направились навстречу друг другу из двух сел. Первый мог бы проехать расстояние между селами за А минут, второй — за Вминут. Через сколько минут они встретятся?
biggod
02 сентября 2022
1
ответ
Задача! 1. Дан массив целых чисел, состоящий из 15 элементов. Найти: 1) сумму положительных элементов, значения которых меньше 10 2) вывести индексы тех элементов, значения которых кратны 3 и 5.
opus44
02 сентября 2022
1
ответ
Есть прога: program WTF; {$APPTYPE CONSOLE} usesSysUtils; vara,b,c,d: real; beginread (a,b,c,d); if d=0 then beginwhile (sqr (a)*b<288) do beginb: =b+1; end; d: =a*sqr (b); endelse if c=0 then beginb: =sqrt (d)*(-1); while (a*sqr (b) <>81) do begina: =a+1; end; c: =sqr (a)*b; end; writeln (a: 1:0,',b: 1:0,',c: 1:0,',d: 1:0); end.
sashajat
01 сентября 2022
1
ответ
Для массива чисел А1А2… Аn элементы, стоящие на четных местах разделить на 3, а стоящие на нечетных умножить на 2
ibilyk
01 сентября 2022
1
ответ
Ребят, помогите, пожалуйста, очень срочно! Найти сумму положительных элементов массива а (15) ПАСКАЛЬ, 10 КЛАСС ШКОЛЬНЫЙ УРОВЕНЬ, БЕЗ ВСЯКИХОСЛОЖНЕНИЙ! СПАСИБО!
vital4ik
01 сентября 2022
1
ответ
Дан периметр прямоугольника P и длина стороны а. Найти вторую сторону. Составить блок-схему ПОМОГИТЕ ОЧЕНЬСРОЧНО
zondart
01 сентября 2022
1
ответ
Даны длины десяти сторон квадратов. Вычислите их площади и периметры.
Задайте свой вопрос

ПОПУЛЯРНОЕ
ksmksm, 02 сентября 2022
Кому и как удалось разгадать тайну египетских иероглифов?
maidle, 02 сентября 2022
Укажите файл чтобы прочесть инструкцию к игре: например; пятнашки.avi пятнашки.txt пятнашки.wav пятнашки.bmp пятнашки
fladik, 02 сентября 2022
Два велосипеда одновременно направились навстречу друг другу из двух…
biggod, 02 сентября 2022
Задача! 1. Дан массив целых чисел, состоящий из 15 элементов
opus44, 02 сентября 2022
Есть прога: program WTF; {$APPTYPE CONSOLE} usesSysUtils; vara,b,c,d: real; beginread
sashajat, 01 сентября 2022
Для массива чисел А1А2… Аn элементы, стоящие на четных местах разделить на 3, а стоящие на нечетных умножить на 2
ibilyk, 01 сентября 2022
Ребят, помогите, пожалуйста, очень срочно!
vital4ik, 01 сентября 2022
Дан периметр прямоугольника P и длина стороны а. Найти вторую сторону. Составить блок-схему ПОМОГИТЕ ОЧЕНЬСРОЧНО
zondart, 01 сентября 2022
Даны длины десяти сторон квадратов. Вычислите их площади и периметры
27400
Алгебра
14821
Английский язык
14216
Биология
7369
Другой
720
Экономика
18828
Физика
8304
География
15850
Геометрия
5255
Информатика
11818
История
23332
Химия
15992
Литература
73118
Математика
8152
Обществознание
465
Правоведение
46271
Русский язык
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...