Question

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

или

2. На вход поступает целое число, если оно нечётное то, то умножить его на 10, иначе умножить на 5

Answer 1

Ответ:

1) program z1;

Var a:integer;

Begin read(a);

if (a>9) and (a<100) then writeln(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.