Задача в Pascal abc.
Cоздать программу и подсчитать количество двузначных чисел, которые кратны 3
Ответы
Ответ дал:
3
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.
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.
Вас заинтересует
11 месяцев назад
1 год назад
6 лет назад
6 лет назад