Регистрация
БатонБагетович
10.08.2020 13:21
Информатика
Есть ответ 👍

Найти основание системы счисления. 990 / 60 = 1110

251
339
Посмотреть ответы 2

Ответы на вопрос:

aitxam
aitxam
4,8(44 оценок)
2- основание системы счисления
baha50
baha50
4,5(2 оценок)

var a,k,i: integer;

begin

 write('Введите число n: ');

 readln(a);

 k:=0;

 for i:=1 to a do

 begin

   

   if i mod 2=0 then

     k:=k+1;

 end;

 writeln('Чётных цифр: ',k);

end.

Популярно: Информатика