tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу которая
Написать программу которая выводит на экран максимальное из трех целых чисел.
MiaRia123
3 23.05.2019 23:00
0
Ответы
girl148
19.06.2020 18:49
Program MAXIN;
var
A:integer;
max:integer;
i:integer;
begin
max:=0;
for i:=1 to 3 do begin
writeln('Введите ваше число');
readln(A);
If A>max then max:=A; end;
writeln('Максимальное число=', max:2);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
9570896123
12.08.2019 18:20
Какое изображение хорошо поддается растяжению и сжатию, не теряя при этом качества...
равиль7777777
20.05.2021 07:20
1. Напишите программу вычисления длины заданной угловой дуги угол наклона дуги (в градусах) и радиус вводятся пользователем...
Arsen00628
20.05.2021 07:21
Keydown модульге сипаттама...
Enotlk1337
20.05.2021 07:21
Мини-проект. Урок 2Определи установленные параметры для защиты документа....
Aydan666
23.05.2020 17:34
Створити програму в якій робот буде їхати по траєкторії шестикутника в lego mindstorms...
DebiloidTupoi
24.05.2020 17:54
Напишите функцию output(date), которая для заданной даты date (тип datetime.date) возвращает последний год, когда в такое же число и тот же месяц был тот же день недели....
итд4
24.05.2020 17:53
Система управления базами данных (СУБД) - это...
popygai2
04.05.2020 15:04
Команду виду - Повторити N разів Команди - називають *...
SiRuES
04.05.2020 15:04
5.Перечислите и опишите деление алгоритмов по структуре6. Что означает тестирование программы. Из каких этапов оно состоит? ...
крэкспекс
19.03.2019 17:30
Задать 10 целых случайных чисел на отрезке (-20: 40). найти сумму чётных положительных чисел, произведение чисел, кратных 5, количество чисел в отрезке (-10: 10) program...
Популярные вопросы
Текст рассуждение, на тему язык изменчив, как изменчива сама жизнь...
3
33333=198 поставить знаки действий и если нужно скобки...
3
Нужны 3 присливья про мову и их значення....
2
Какой минимальный объём воздуха (дм3, н.у.) нужен для полного окисления...
1
Cos(arcos(-1)+arcsin(-корень из 3/2)+arctg корня из 3)...
1
Разобрать слова по составу неизмеримость,тысячелетия,отвлеченые,искрящаяся,потрясающая,наслажденье...
3
Найдите корни уравнения: (4х+5)(9х-1)=0...
3
Продолжите данную группу слов своими примерами. слова: cловесами словом...
2
Найдите корни уравнения: (4х+5)(9х-1)=0...
3
0,75 в степени 1/3*4 в степени 2/3*12 в степени 2/3...
3
var
A:integer;
max:integer;
i:integer;
begin
max:=0;
for i:=1 to 3 do begin
writeln('Введите ваше число');
readln(A);
If A>max then max:=A; end;
writeln('Максимальное число=', max:2);
End.