Щуплова Александр
?>

Напишите программный код. Вывести на экран все 3-х значные числа, делящиеся на 3. (Вывод чисел в строку) ( паскаль) ​

Информатика

Ответы

Сумарокова

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите программный код. Вывести на экран все 3-х значные числа, делящиеся на 3. (Вывод чисел в строку) ( паскаль) ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

olesyadeinega41
Fedorovich309
m-illarionov
emilbadalov
kuharhuks
seletan1
isaev
Gera8061
npprang21
igevskoemuseumkec
club-pushkin
ver2bit
dmdlir
kogakinoa
olimov9