1. Информатика
  2. :( составьте программу, определяющую

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

mazaeva333 mazaeva333    2   20.03.2019 16:50    12

Ответы
grebennickovasv grebennickovasv  26.05.2020 08:45

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Aegon Aegon  09.04.2020 10:34
Дано предложение. Определи, правильно ли оно записано.Атлантический океан — второй по величине океан Земли после Тихого океана, название произошло отимени титана Атласа (Атланта)...
mintgirl mintgirl  09.04.2020 10:34
Чему будут равны элементы массива, объявленного как int N = 5; int A[N] = {1, 2, 3, 4, 5}; пjсле выполнения цикла? а) for( int i=0; i A[i] = A[i]*A[i]; б) for( int i=0; i A[i] =...
Selch Selch  26.07.2019 19:02
Вобразовательном учреждении проходит обучение всего 124 человека из них 45 мальчиков и 57 девочек какой системе счисления велся учет обучающихся...
анюко анюко  27.10.2020 18:49
Решите арифметические задания.Информатика​...
marisa10 marisa10  23.12.2020 09:58
Виды компьютерной графики ОпределениеОбласть примененияДостоинстваНедостаткиГрафические редакторы​...
Eg0rMirn9y Eg0rMirn9y  23.12.2020 09:58
О каком объекте идет речь: оранжевый круглый сочный состоит из долек​...
firstoneking1 firstoneking1  23.12.2020 09:57
3. Как называется устройство на рисунке?​...
помошник12345678910 помошник12345678910  06.02.2021 14:21
1)Сканируется цветное изображение размером 16 х 16 см. Разрешающая сканера 600 х 600 dpi, глубина цвета — 2 байта. Какой информационный объём будет иметь полученный графический файл?...
2006anna1 2006anna1  06.02.2021 14:23
задание 1. определите максимальное количество цветов изображение информационный вес которого равен 6 Мбайт и расширение 2024*1028. дам...
Mitrel Mitrel  06.02.2021 14:24
1)Сканируется цветное изображение размером 16 х 16 см. Разрешающая сканера 600 х 600 dpi, глубина цвета — 2 байта. Какой информационный объём будет иметь полученный графический файл?...

Популярные вопросы