Задача в Pascal abc.

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

Question

Бориславка

12 июня, 15:25

+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