Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
itskova310181
23.05.2022 00:26 •
Информатика
Вводятся три целых числа.определить каое из них наибольшее.
Показать ответ
Ответ:
zzz26101973
31.07.2020 15:29
Var
i, x, max: integer;
begin
readln(max);
for i:=1 to 2 do
begin
readln(x);
if x>max then max := x;
end;
writeln(max);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AgafAl
11.07.2022 17:42
Сосуды цилиндрической формы заполнены до краёв жидкостью плотностью d=1200кг\м³. составьте программу, которая вычисляет давление столба жидкости на дно сосудов p=dgh( g=9,8м\с²)...
AliskaLao16
20.04.2023 11:04
Переведите числа из десятичной системы счисления в факториальную : 91 67 84 50 69...
owe4kinad
26.09.2020 23:42
Используя таблицу ASCII закодирую слово УРОК...
dimon2512
19.07.2020 04:12
Задание 1 рассмотри пример и укаджите вид информации у меня сор...
ІванДурненький
21.01.2020 16:45
Покажите, как из исходных множеств A, B, C получить закрашенное серым множество D. В ответе приведите символическую запись....
vovasherbak2003
20.03.2023 00:56
. IEEE - … 2. FCC - …3. К стандартам беспроводной связи относятся: …4. Преимущества беспроводной сети: …5. Недостатки беспроводной сети: ......
Alou16
19.01.2023 16:11
Автормен, әжемен диалог құру...
Nadezhda136
25.03.2023 21:24
Доклад формы рельефа есть в России?...
yanavyskubina
03.01.2021 01:16
Розповідь про подорож Україною або світом із за значенням назв мешканців відвіданих місць...
Римская1
08.04.2020 08:38
Правильний трикутник зі стороною корінь з 12 см вписаний у колою. Знайти сторону квадрата вписаного в це коло?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, x, max: integer;
begin
readln(max);
for i:=1 to 2 do
begin
readln(x);
if x>max then max := x;
end;
writeln(max);
end.