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

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

formlikom 17 марта 2023

СРОЧНО! Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концомввода чисел является введенное число 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
17 марта 2023
1
ответ
Кому и как удалось разгадать тайну египетских иероглифов? Буд те добры помогите мне я вообще нешарю.
maidle
17 марта 2023
1
ответ
Укажите файл чтобы прочесть инструкцию к игре: например; пятнашки.avi пятнашки.txt пятнашки.wav пятнашки.bmp пятнашки.com
fladik
17 марта 2023
1
ответ
Два велосипеда одновременно направились навстречу друг другу из двух сел. Первый мог бы проехать расстояние между селами за А минут, второй — за Вминут. Через сколько минут они встретятся?
biggod
17 марта 2023
1
ответ
Задача! 1. Дан массив целых чисел, состоящий из 15 элементов. Найти: 1) сумму положительных элементов, значения которых меньше 10 2) вывести индексы тех элементов, значения которых кратны 3 и 5.
opus44
17 марта 2023
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
17 марта 2023
1
ответ
Для массива чисел А1А2… Аn элементы, стоящие на четных местах разделить на 3, а стоящие на нечетных умножить на 2
ibilyk
17 марта 2023
1
ответ
Ребят, помогите, пожалуйста, очень срочно! Найти сумму положительных элементов массива а (15) ПАСКАЛЬ, 10 КЛАСС ШКОЛЬНЫЙ УРОВЕНЬ, БЕЗ ВСЯКИХОСЛОЖНЕНИЙ! СПАСИБО!
vital4ik
17 марта 2023
1
ответ
Дан периметр прямоугольника P и длина стороны а. Найти вторую сторону. Составить блок-схему ПОМОГИТЕ ОЧЕНЬСРОЧНО
zondart
17 марта 2023
1
ответ
Даны длины десяти сторон квадратов. Вычислите их площади и периметры.
Задайте свой вопрос

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