Паскаль ABC. Составить программу нахождения количества целых чисел от 1 до 100 делящихся на 3 без остатка.

Question

Информатика

Ваня

24 января, 14:50

Паскаль ABC. Составить программу нахождения количества целых чисел от 1 до 100 делящихся на 3 без остатка.

+3

Ответы (1)

Знаешь ответ?

Геруня · Answer 1

Program p1;

const n=10;

var a: array [1 ... n] of integer;

k, i: integer;

begin

randomize;

k:=0;

for i: = 1 to n do

begin

a[i]: = random (100) + 1;

write (a[i]:3);

if a[i] mod 3=0 then

k:=k+1;

end;

writeln;

write ('количество чисел=', k);

end.