Регистрация
ДАШУНЯ1311
16.11.2020 17:24
Информатика
Есть ответ 👍

1. Найти меньшее min из двух целых чисел x и y
2. Даны натуральные числа a и b. Определить тип обыкновенной дроби a/b (правильная или неправильная), ответ записать в переменную d.
3. Дано целое число х. Если оно двузначное, то в переменную s записать слово “YES”, иначе – слово “NO”.
Замечание: в программах обязательно должны быть блок ввода и блок вывода.

286
452
Посмотреть ответы 2

Ответы на вопрос:

soldiertoy01
soldiertoy01
4,7(10 оценок)

1)

var x, y, min : integer;

BEGIN

read(x, y);

if x < y then min := x

else min := y;

write(min);

END.

2) (im)proper fraction - (не)правильная дробь

var a, b : integer;

d : string;

BEGIN

read(a, b);

if a >= b then d := 'improper fraction'

else d := 'proper fraction';

write(d);

END.

3)

var x : integer;

s : string;

BEGIN

read(x);

if (x >= 10) and (x < 100) then s := 'YES'

else s := 'NO';

write(s);

END.

mmmaaakkkaaarrr
mmmaaakkkaaarrr
4,6(78 оценок)
Уж не знаю, откуда взяли 25 байт.  диапазон температур 8+8=16 градусов. для записи в этом случае достаточно 4 бита (2^4=16), значит 4*40=160 бит = 20 байт

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