1) выведите на экран 'сегодня понедельник' 2) выведете на экран на языке паскаль а> b, а> 35 3) сделайте запрос на ввод переменной и введите переменную 4) изобразите на языке паскаль, если а> b, то вывести значенин а на экран, иначе вывести b 5) введите с клавиатуры 2 любых числа, найдите их сумму, выведите на экран нужно!

199

477

Посмотреть ответы 1

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

Сонька10Монька

Информатика

4,6(1 оценок)

Var a: longint; b: string; begin writeln('введите длину'); readln(a); writeln('введите единицы измерения (метры/дециметры и т.д.)'); readln(b); if b='метры' then writeln(a, ' метров') else if b='дециметры' then writeln(a/10, ' метров') else if b='километры' then writeln(a*1000, ' метров') else if b='миллиметры' then writeln(a/1000, ' метров'); end.