var i:integer;
begin
for i:=1 to 100 do
begin
if (i div 5)=0 then //если i делиться на 5 на цело
write(i,' ') // тогда выводим i который
else
break; // прерываем цикл
end;
writeln();
readln();
end.
пожалуйста ссылку не на "начало " а на последний комментарий, к которому относится ответ. Иначе долго искать, это неудобно для проверки. Также можно помимо ссылки добавить и цитату этого комментария.
vedro-compota
Mon, 05/27/2019 - 11:17
Permalink
пожалуйста ссылку не на
пожалуйста ссылку не на "начало " а на последний комментарий, к которому относится ответ. Иначе долго искать, это неудобно для проверки. Также можно помимо ссылки добавить и цитату этого комментария.
_____________
матфак вгу и остальная классика =)
vedro-compota
Mon, 05/27/2019 - 11:18
Permalink
И сразу - - прокомментируйте
И сразу - - прокомментируйте все строки вашего решения, а то у вас только две да и то не полностью.
_____________
матфак вгу и остальная классика =)