Задача в Pascal abc.

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

Question

Самсоний

18 сентября, 04:33

+2

Ответы (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