Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
yousei1234
08.12.2020 18:17 •
Информатика
Даны три числа a,b,c. значение большего из них присвойте значение d на паскале
Показать ответ
Ответ:
нуршат8
09.07.2020 06:27
Var
a, b, c, d: integer;
begin
write ('Введите три числа: ');
readln (a, b, c);
if a >= b then
d := a
else
d := b;
if c > d then
d := c;
writeln ('Максимальное из них: ', d);
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ruslanchiksmirozrw6o
05.04.2023 16:42
требуется расчитать параметры прямоугольного треугольника с углом 30 градусов, по заданому катету, лежащему против угла 30 градусовНапишите в виде программы на языке...
4544545454
06.02.2021 13:46
5. Дана последовательность: 0,2; 0,4; 0,8; 1,6; а) Опишите закономерность числовой последовательности. b) Запишите следующий член последовательности....
Katenkalovely
18.12.2021 01:20
решите Нужно. Написать программу на паскале. Удалить из массива элемент, расположенный после каждого значения, равного максимальному элементу. Если такая замена невозможна,...
kristinakomaro5
07.03.2022 00:18
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4. Программа получает на вход количество чисел в последовательности,...
Lilia3002
18.10.2020 19:22
PYTHON Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности,...
popkaf
08.03.2023 05:18
Файл размером 8кбайт передается через некоторое соединение за 64 секунды. определите, за сколько секунд можно передать этот же файл через соединение, скорость которого...
nikim05
27.10.2022 08:00
Запишите алгоритм удаления символа с клавиши {backspace}: , , !...
SvetaMatyukhina
11.11.2021 17:07
Звідки ми дізнаємося про історичне минуле?...
maksimfomin2020
20.05.2021 07:06
Выяснить взаимное расположение прямых М1М2и d, если они не параллельны, определить тангенс угла между ними и найти координаты точки их пересечения. d: 4x+1=0 M1(2;-2),...
alena7571
07.04.2023 08:02
Сообщение про украинского учоного физика...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, b, c, d: integer;
begin
write ('Введите три числа: ');
readln (a, b, c);
if a >= b then
d := a
else
d := b;
if c > d then
d := c;
writeln ('Максимальное из них: ', d);
readln
end.