Вопрос Помогите с паскалем
- Автор темы клон
- Дата начала
Result := 300 div 16;
Чо тут не понимать: перебираем числа через цикл for проверяем делится ли на 16 через mod и if Если делится увеличиваем счетчик через inc
k:=0; for i:=16 to 300 do if i mod 16 = 0 then k:=k+1; writeln(k);
Цикл, который перебирает числа от 1 до 300, делит на 16 и увеличивает счётчик, если число делится на 16.
var i, k : Integer; begin k := 0; for i := 1 to 300 do if(i mod 16 = 0) then k := k+1; writeln(k);
PHP:
var n:=0;i,x: integer;
begin
writeln('Введите 1...x диапазон');
readln(x);
for i:=1 to x do
if i mod 16 = 0
then n:=n+1;
writeln('Количество чисел кратных 16 на промежутке 1...',x,' равно ',n);
end.