Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Cанек3017
11.07.2020 00:10 •
Информатика
Склавиатуру набраны случайным образом 3 числа. составить программу вычисления максимального из набранных чисел.
Показать ответ
Ответ:
kitiry
03.10.2020 10:31
Program abc
var: x,y,c integer
begin
clrscr
writeln( "введите 3 числа")
readln (a,b,c)
if a>b and b>c then
writeln(a "большее")
else
if awriteln ( b "большее")
else
writeln (c "большее")
readkey
end.
может забыл что то,давно не писал на паскале
0,0
(0 оценок)
Популярные вопросы: Информатика
nast20171
19.08.2021 02:08
Переменные А,В,С Начало А:=10; В:=15; С:=А+В; Чему будет равна переменная С в результате выполнения алгоритма Сделайте ещё решение...
sofiamazanova
21.04.2020 05:50
Даны целых два числа a и b. написать программу, которая находит большее из них...
jru77
26.06.2022 04:31
6. с клавиатуры вводится n чисел. выведите на экран только четные числа меньшие 30. в паскале...
KyroSC
05.11.2022 03:44
Среди n случайных чисел в диапазоне от -1 до 10 определите количество чисел, делящихся на 3. паскаль...
yabreakneckkryt
04.11.2020 01:58
В1см200м-1переведи именованный масштаб в численный...
максим1723
04.11.2020 01:58
Подпишите структуры листа, обозначенные цифрами от 1 до 10....
Ромчик55123
25.11.2022 03:31
Средства художественной выразительности в произведениях А.С. Пушкина Няне , Зимний вечер . ...
MarkTell
30.03.2023 07:21
( n-m)×(m+n),при m= -3,n=28( найдите выражение со скобками )...
НадеждаАрико
30.03.2023 07:21
решением! сосуде закрытом подвижным поршнем находится воздух относительная влажность которого 40% Определите выпадет ли роса после того как объем занимаемый воздухом...
milena20181
30.03.2023 07:21
Расставьте запятые Листок(1)упавший с клёна(2)кружась (3)летел вдоль берега(4)к заросшей камышом(5)и мхом(6)мельнице. 1)1,2,4 2)1,2,3 3)2,4,5 4)1,3,5,6...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var: x,y,c integer
begin
clrscr
writeln( "введите 3 числа")
readln (a,b,c)
if a>b and b>c then
writeln(a "большее")
else
if awriteln ( b "большее")
else
writeln (c "большее")
readkey
end.
может забыл что то,давно не писал на паскале