Ответы
Ответ дал:
0
Ответ:
program z1;
var i,k: integer;
begin
k:=0;
for i:=10 to 99 do if i mod 3 = 0 then k:=k+1;
write(k)
end.
Объяснение:
Цикл для перебора всех двузначных чисел
Если число делится на 3 без остатка, то увеличиваем k на 1
mod - остаток от целочисленного деления
Ответ дал:
0
Ответ:
program z1;
var i,k: integer;
begin
k:=0;
k:=0;for i:=10 to 99 do if i mod 3 = 0 then
thenk:=k+1;
thenk:=k+1;write(k)
thenk:=k+1;write(k)end.
Объяснение:
Цикл для перебора всех двузначных чисел
Если число делится на 3 без остатка,
то увеличиваем к на 1
mod - остаток от целочисленного деления
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад