Есть ответ 👍

Сколько ячеек содержит выделенная область В5:Е

252
272
Посмотреть ответы 1

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


Program test; var   n,n1,tst,i,count: integer; begin   readln(n);   while n1< n do begin     n1: =n1+1;     count: =0;     for i: =1 to n1 do begin             if n1 mod i = 0 then inc(count);           end;     if n1> 1 then if   count=2 then writeln(n1);   end; end.

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