Предмет:
ИнформатикаАвтор:
amberlopezАвтор:
riley591Автор:
alisonnewmanАвтор:
trinitynrxfАвтор:
parisbuckleyvar
a, n : integer;
begin
repeat
read(a);
if a div 7 = 0 then n += 1;
until a = 0;
writeln(n);
end.
Автор:
julius27Добавить свой ответ
Предмет:
Другие предметыАвтор:
chicogeorgeОтветов:
Смотреть
Предмет:
Русский языкАвтор:
abdullah788iОтветов:
Смотреть
Предмет:
ХимияАвтор:
buzzyarnoldОтветов:
Смотреть
Предмет:
МатематикаАвтор:
aguirreОтветов:
Смотреть