Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
omka02
30.12.2021 15:16 •
Информатика
Составить программу на языке паскаль: ввести 4 числа и вывести большее из них.( )
Показать ответ
Ответ:
Аня79780607646
20.07.2020 08:02
Var x, y, z: integer;
var M:Array[1..4] of integer;
begin
z:= -7000;
for var i:= 1 to 4 do
beginwriteln('Введите число');
readln(M[i]);
if z< M[i] then z:= M[i];
end;
writeln(z :4 );
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Dariasolne4naya
15.12.2021 07:47
напишите программу на языке c# для ввода с клавиатуры двух чисел в 16-ричном формате и вывода на экран их суммы в двоичном формате....
olyalyolya
31.03.2020 06:36
Сколько разных восьмибуквенных слов можно составить в двоичном алфавите?...
veronikkot2016
14.11.2021 06:13
Нужно написать на паскале. имеется n типов. задано количество товаров каждого типа, цена за единицу товара и вес товара каждого типа. загрузить контейнер, не превышая заданной грузоподъемности,...
daria9303
09.08.2020 09:43
Вычислите скорость тела в момент времени t при прямолинейном равноускоренном движении, если известны начальная скорость и ускорение. указание: воспользуйтесь формулой vt=vo+at, где...
ANGELINA69Z
23.06.2020 17:32
Вячейку с9 ввели формулу = c8/$a$8. затем эту формулу распространили вправо. какая формула содержится в ячейке g9? а) g8/$a$8 б) c8/$g$8 в) g8/a$8 г) c9/$g8...
52681
12.01.2021 08:57
Сложите числа d516 + 768 + 7610, результат получите в шестнадцатеричной системе счисления...
milenaborowik
17.11.2020 04:53
Записать следующие утверждения в виде формул логики высказываний, построить таблицы истинности и определить обще значимость, выполнимость (невыполнимость) и число моделей полученных...
katyamineeva02
29.11.2021 05:46
Сколько существует чисел х (в десятичной системе счисления), для которых выполнено неравенство 11011100 (2 степень)...
кукла221
26.02.2020 09:45
1.построить таблицу истинности для заданного логического выражения (можносначала ).х = (a b) + (c ! b)...
olinikvioletta62
14.11.2020 02:13
(нужно) 1)что будет напечатано? write(copy( абракадабра , 3, 8)); 2)сколько раз будет выполняться тело следующего оператора цикла? k: =1; for i: =1 to k+499 do k: =k+1; 3)даны описания...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var M:Array[1..4] of integer;
begin
z:= -7000;
for var i:= 1 to 4 do
beginwriteln('Введите число');
readln(M[i]);
if z< M[i] then z:= M[i];
end;
writeln(z :4 );
end.