Войти Регистрация Спроси ai-bota

Найти max (a,b) через pascal решить!

Ответ:

Hgfdc

10.08.2020 08:20

Var
a,b:integer;
Begin
Write('Введите два целых числа: ');ReadLn(a,b);
if a > b then WriteLn('Max = ',a)
else WriteLn('Max = ',b)
End.

0,0(0 оценок)

Популярные вопросы: Информатика

kata198722

04.02.2023 06:43

Поясніть відмінності між двома перебору елементів списку:а) for i in range(len(а)): print(a[i])б) for i in a: print(i)...

Amfitom1ne

20.06.2022 02:00

В чем преимущества и недостатки работы с общедоступными файлами?...

натали574

28.05.2020 07:52

Напишите наименьшее целое число x, для которого истинно высказывание: НЕ (X = 7) И (X 20)....

nikita2024

26.05.2022 13:15

Питон 1. Напишите программу, которая вводит символьную строку и определяет, сколько раз в ней встречается буква «Ю». Пример: Введите строку: АЮАЮАЮЮ Букв Ю : 4...

ApuCTokpaT1

16.04.2021 01:30

напишите эти примеры на языке пайтон...

ШиноаХиираги

28.02.2021 15:35

Три массива: вопросы викторины, верные ответы, ответы, которые будут введены участниками. ответы в основном из одного - двух слов. все вопросы и ответы ввожу присваиванием,...

sunnyAkhhhh

21.01.2022 07:32

Укажіть особливості растрової графіки а)застосовують для опрацювання фотграфій б)застосовують для креслень в)якість погіршується при збільшенні зображення г)обсяг...

НепосредственноКаха8

16.07.2022 16:18

Степень интеграции процессора - ?...

ANADTYEE

09.11.2021 15:03

Точка К лежит между параллельными плоскостями а и b. Прямые, проходящие через точку К, пересекают плоскость а в точках А1 и B1, а плоскость b в точках А2 и В2 соответственно....

ZlushiyPlayar

03.09.2021 18:27

Ann likes meeting new people she isand ...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку