Задача в Pascal abc.

Cоздать программу и подсчитать количество двузначных чисел, которые кратны 3

Question

Оксана

26 января, 21:18

+1

Ответы (1)

Знаете ответ на вопрос?

Борюша · Answer 1

Program z1;

uses crt;

var k, i:integer;

begin

k:=0;

for i:=10 to 99 do

if (i mod 3=0) then

k:=k+1;

writeln ('Количество: ', k)

end.

Задача в Pascal abc.Cоздать программу и подсчитать количество двузначных чисел, которые кратны 3