Регистрация
aslazer211124
29.12.2020 14:16
Информатика
Есть ответ 👍

Дан список значений и правило условного форматирования. Перечислите адреса ячеек диапазона A1:A6, удовлетворяющие данному правилу.

181
377
Посмотреть ответы 1

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

Ленf77
Ленf77
4,7(48 оценок)

var i,a,k: integer;

begin

for a := 100 to 999 do

begin

k:=0;

for i:=3 to a div 3 do

if a mod i = 0 then

k := k + 1;

if k = 0 then write(a, ' ');

end;

end.

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