Пожалуйста помогите) 1. ** вход поступает целое число. Выяснить является ли оно...

Question

Пожалуйста помогите) 1. На вход поступает целое число. Выяснить является ли оно двухзначным. или 2. На вход поступает целое число, если оно нечётное то, то умножить его на 10, иначе умножить на 5

Answer 1

Ответ:

1) program z1;

Var a:integer;

Begin read(a);

if (a>9) and (a

else writeln(a, '-не является двузначным числом');

end.

2)program z2;

var c:integer;

begin

readln(c);

if (c mod 2)=0 then writeln(c div 5) else writeln(c*10);

end.