Написать программу: ввести число, определить делится ли оно на 2

Question

Информатика

Алфиса

13 октября, 10:57

Написать программу: ввести число, определить делится ли оно на 2

+1

Ответы (1)

Знаете ответ на вопрос?

Инзиля · Answer 1

Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K:

uses crt;

var n, k, i, c:integer;

begin

write ('N - ') ;

read (n) ;

write ('K - ') ;

read (k) ;

c:=0;

for i:=10 to 99 do

begin

if (i=n) and (i mod 2=0) and (i mod k=0) then

c:=c+1;

end;

if c0 then

else

write ('yes')

end