1. Информатика
  2. Составьте программы определения

Составьте программы определения наибольшего числа из двух.

ShahKulu ShahKulu    3   13.07.2019 08:20    0

Ответы
ledytyt13 ledytyt13  18.09.2020 21:29
Var a,b:integer;
begin;
readln(a);
readln(b);
if a>b then write('Первое');
if a<b then write('Второе');
if a=b then write('=');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
СССС69 СССС69  16.12.2021 16:51
Какой результат будет на экране после запуска программы? Program z1; var x,y:integer; begin x:=5; if x 2 then y:=x*2 else y:=x-2; writeln(y); end. * паскаль...
mashenkalarchenko mashenkalarchenko  16.03.2020 04:22
Нарисуйте блок-схему алгоритма нахождения суммы двух введённых пользователем чисел. В ответе прикрепите файл со схемой....
robot1212 robot1212  24.02.2020 22:24
Определите значение переменной s по блок-схеме при n=6. В ответе укажите только одно число....
602158 602158  13.06.2019 14:20
Зрение обоняние слух вкус осязание всё вместе это...
baten baten  13.06.2019 14:20
Найти сумму последовательности чисел от 1 до n , где n вводится с клавиатуры...
AnnPogodina1 AnnPogodina1  04.03.2021 20:38
Для N чисел, заданных случайным образом [-35;16], подсчитать сумму и количество отрицательных нечётных чисел. Значение N ввести с клавиатуры​...
FireFox2017 FireFox2017  04.03.2021 20:39
Нужна ваша , как мне подобрать код может есть аpk файл для подбора. Если есть идеи предлогайте ​...
FriskPacifist FriskPacifist  04.03.2021 20:39
если ключевое слово: модель. Расшифруйте текст, зашифрованнsй шифром перестановки. ....
darytish darytish  04.03.2021 20:39
По фрагменту программы составить трассировочную таблицу const n = 5; a: array [1..n] of integer = (5, -8, 15, 15, -8);var i, b, c: integer;begin b := a[1]; c := 1; for i := 2 to...
bozenka20042004 bozenka20042004  23.05.2019 20:23
С1 по информатике, , не последние умоляю ! °...

Популярные вопросы