Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Алёнушка290
12.03.2021 10:34 •
Информатика
Решить по программированию, используя, а) оператор ветвления б) оператор цикла написать программу нахождения наибольшего из пяти чисел, вводимых с клавиатуры. pascal
Показать ответ
Ответ:
VikaPika561
08.10.2020 13:55
Разветвляющийся алгоритм
Var a,b,c,d,e:integer;
Begin
Writeln('Введите значения переменных');
Readln(a,b,c,d,e);
If (a>b) and (a>c) and (a>d) and (a>e) tnen
Writeln('Наибольшее из 5 чисел ', a)
Else
If (b>a) and (b>c) and (b>d) and (b>e) tnen
Writeln('Наибольшее из 5 чисел ', b)
Else
If (c>a) and (c>b) and (c>d) and (c>e) tnen
Writeln('Наибольшее из 5 чисел ', c)
Else
If (d>a) and (d>b) and (d>c) and (d>e) tnen
Writeln('Наибольшее из 5 чисел ', d)
Else
Writeln('Наибольшее из 5 чисел ', e);
End.
Циклический алгоритм
Type
Vector=array [1..10] of integer;
Var m:integer;
a:vector;
i:byte;
Begin
Writeln('Введите значения переменных');
For i:=1 to 5 do
Readln (a[i]);
For i:=1 to 5 do
If a[i]>a[i+1] then
m:=a[i];
Writeln('Наибольшее число ', m);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
куколку
28.10.2021 06:54
Надо сделать мультфильм на тему День Победы в макромедиа Флэш.критерии:3мин длительность.Поздравление с праздником.От 5-12 fps....
lolabrikoslol
15.07.2020 10:46
Який элемент програми позначений пiд цифрою 5?(зеленый флажок) 1) режим перегляду 2) зупинити все 3) запуск програми 4) повний режим...
SashaWest
11.11.2020 15:57
Как будет это в pascale и блок схема?...
Naniko1515
06.12.2022 05:28
Ребят проект Unreal engine 4 ! на тему шутер про зомби с инвентарем...
Anotherdream
05.09.2022 15:53
Ну смотрите есть: геоинформационная система(ГИС например) какие есть ещё информационные системы?...
KoKaina
17.04.2021 01:05
Вы пишите релаксационное приложение для маленьких детей. Его основная задача - успокаивать яркими цветами и движением на экране. Попросите пользователя ввести с клавиатуры одно из...
EgorUmelii
25.06.2021 10:26
ответь на вопросы Как вы понимаете понятие массив?Какие вы можете привести примеры из повседневной жизни работы с однотипными данными больших объемов?Что означает служебное слова...
АсияТулемисовна
30.06.2021 21:31
Этапы которых стоит придерживаться при разработке любых баз данных: 1/Разработка и создание форм для ввода данных в электронную таблицу.2/Выяснение задач, для которых будет использоваться...
galitskovao
10.05.2023 10:13
Какое лексическое значение слова обум?...
ТапОчек448
05.04.2021 16:26
Введение протокола TCP/IP какой год...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a,b,c,d,e:integer;
Begin
Writeln('Введите значения переменных');
Readln(a,b,c,d,e);
If (a>b) and (a>c) and (a>d) and (a>e) tnen
Writeln('Наибольшее из 5 чисел ', a)
Else
If (b>a) and (b>c) and (b>d) and (b>e) tnen
Writeln('Наибольшее из 5 чисел ', b)
Else
If (c>a) and (c>b) and (c>d) and (c>e) tnen
Writeln('Наибольшее из 5 чисел ', c)
Else
If (d>a) and (d>b) and (d>c) and (d>e) tnen
Writeln('Наибольшее из 5 чисел ', d)
Else
Writeln('Наибольшее из 5 чисел ', e);
End.
Циклический алгоритм
Type
Vector=array [1..10] of integer;
Var m:integer;
a:vector;
i:byte;
Begin
Writeln('Введите значения переменных');
For i:=1 to 5 do
Readln (a[i]);
For i:=1 to 5 do
If a[i]>a[i+1] then
m:=a[i];
Writeln('Наибольшее число ', m);
End.