tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Преобразовать алгоритм,
Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке pascal алг максимальное число нач цел a,b,m ввод a,b если a> =b то m: =a иначе m: = b все вывод m кон
cfvjktn8
2 31.08.2019 20:50
12
Ответы
Alinalime10
06.10.2020 08:23
Program maximum_value;
var
a, b, m: integer;
begin
read(a, b);
if a >= b then
m := a
else m := b;
writeln(m);
end.
ПОКАЗАТЬ ОТВЕТЫ
Ilyauhdhbtxskr
06.10.2020 08:23
1. Free Pascal
program MaxNum;
var a,b,m:integer;
begin
Read(a,b);
if a>=b
then m:=a
else m:=b;
Writeln(m)
end.
2. PascalABC.NET 3.2
program МаксимальноеЧисло;
begin
var a,b,m:integer;
Read(a,b);
if a>=b
then m:=a
else m:=b;
Writeln(m)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kolotilka23
13.06.2019 17:50
Переведите из двоичной 1000 в десятичную и распишите сколько будет в каждой степени....
СургутянкаАся
07.07.2019 19:20
Возможности настройки свойств панели...
Jakclin
07.07.2019 19:20
Дополни схему получения информации...
kirillusupov20ovyv00
07.07.2019 19:20
Як розмістити 5 стільців в кімнаті, щоб біля кожної стіни було по 2 стільці?...
sssaaa4
07.07.2019 19:20
Переведите число 30 из десятичной системы счисления в двоичную систему счисления....
avysocka
08.10.2019 02:50
Устанавите взаимно-однозначное соотсвестиеустановите взаимно-однозначное соотвествие...
C137
08.10.2019 02:40
Решить на python 3 остаток ограничение по времени на тест 2 секунды ограничение по памяти на тест 64 мегабайта ввод: стандартный ввод вывод: стандартный вывод входные...
YuKruglova1
08.10.2019 02:40
Что будет выведено на экран в результате работы следующей последовательности операторов? a=6; write(a);...
Nikitka76rus
08.10.2019 02:40
На круизном пароме стоимость завтрака для взрослых 18 лет и старше составляет 10 евро, для подростков 12-17 лет 6 евро , для детей 6-11 лет 4 евро, для детей младше...
тупойчеловек376
08.10.2019 02:40
Заполнить массив из 10 элементов случайными числами в интервале [10, 12] и найти длину самой длинной последовательности стоящих рядом одинаковых элементов. (на алгоритмический...
Популярные вопросы
Чему примерно равна масса тела, если его вес равен 200 Н?...
3
мне нужно сделать задания по метрологии...
2
Выпишите из текста 5 слов на безударную гласную в корне слова...
1
по физике Задача Дано: М= 600 ∆l = 6 см J = 10н/кг ––– К= ?...
3
Вычислительные формулы в ячейках электронной таблицы записываются:...
1
Үзіндерден табу сөздерді теріп жазыңдар...
2
Вычисли и запиши ответ. Расстояние между двумя железнодорожными...
1
Пищеварение начинается в (А). Там начинается расщепление (Б)...
2
сочинение по картине яблонской утро кстати кто может в роблоксе...
2
В список вымирающих животных Казахстана входят: млекопитающие,...
3
var
a, b, m: integer;
begin
read(a, b);
if a >= b then
m := a
else m := b;
writeln(m);
end.
program MaxNum;
var a,b,m:integer;
begin
Read(a,b);
if a>=b
then m:=a
else m:=b;
Writeln(m)
end.
2. PascalABC.NET 3.2
program МаксимальноеЧисло;
begin
var a,b,m:integer;
Read(a,b);
if a>=b
then m:=a
else m:=b;
Writeln(m)
end.