пожалуйста помогите)
1. На вход поступает целое число. Выяснить является ли оно двухзначным.
или
2. На вход поступает целое число, если оно нечётное то, то умножить его на 10, иначе умножить на 5
1. На вход поступает целое число. Выяснить является ли оно двухзначным.
или
2. На вход поступает целое число, если оно нечётное то, то умножить его на 10, иначе умножить на 5
More Questions From This User See All
Answers & Comments
Ответ:
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.