Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Slaeran
24.08.2021 00:05 •
Информатика
Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке pascal алг максимальное число нач цел a,b,m ввод a,b если a> =b то m: =a иначе m: = b все вывод m кон
Показать ответ
Ответ:
АлиOчкА
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.
0,0
(0 оценок)
Ответ:
oytu
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
pinGvin022
17.05.2023 16:09
Костюм ауыстырғанда қандай командалар қолданылады? Кейіпкердің костюмі деген не? Жобалар жасауда не үшін диалог құрамыз?...
sergey260
17.05.2023 16:09
обьяснить,что делает каждая строчка кода long a; cin a; bitset 64 b(a); string s=b.to_string(); cout s.substr(s.find_first_of( 1 ))...
soykaalayaovpiyg
08.12.2022 09:56
Число с плавающей запятой 2017 2017 представилиЧему равен порядок этого числа...
tim1110
01.12.2022 14:53
написать программуВычесли и выведи на экран значение функции b=a²+3x-5,где a меняется от 2 до -3на фото пример...
лаброри
14.02.2023 02:25
С решением было бы круто...
OMG1234567890
28.05.2020 03:54
1. Запустите тренажёр «ЛамПанель». Введите программу DATA 01D0 DATA 3536 DATA 0101 DATA Используя дизассемблер программы «ЛамПанель», запишите эту программу на языке ассемблера:...
никкки228
08.08.2022 12:41
§5.1, составить краткий конспект....
Otlichnik1703
19.12.2021 04:30
Не паскальОдна компания выпустила лотерейные билеты трёх разрядов: для молодежи, для взрослых и для пенсионеров. Номера билетов каждого разряда лежат в пределах:а) для молодёжи...
PolinaPilipenco
23.09.2022 17:10
Нужны ответы на Вводный курс алгоритмизации на основе исполнителя Водолей. (если что это КуМир) Автор К.Ю. Поляков. Если их нет то решить задачу Наберите 1 литр воды в любом...
Ptigran
21.09.2022 00:12
Запиши программу на языке Паскаль. Вычисли сумму s=∑k=1nk+1k2+1, если значение n вводит пользователь. Если n=7, то вывод на экран (ответ округли до сотых) ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.