Siradi
5 год назад
написать на Pascal программу.Определить ,являеться ли число N четным двузначным числом
ОТВЕТЫ
Петко
Oct 24, 2020
program NekitZor;
var N:integer;
begin
write('Введите число N:');
readln(N);
if (N mod 2 = 0)and (N div 100 < 1) and (N>9) then write('Данное число двузначное') else if (N div 100 <1) and (N>9) then write ('Данное число не четное двузначное')
end.
var N:integer;
begin
write('Введите число N:');
readln(N);
if (N mod 2 = 0)and (N div 100 < 1) and (N>9) then write('Данное число двузначное') else if (N div 100 <1) and (N>9) then write ('Данное число не четное двузначное')
end.
74
Смежные вопросы:
