Решение задачи 7 из главы 10.1
Primary tabs
Решение задачи 7 из главы 10.1
7. Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
program Project7; var a: integer; begin a:=0; while (a < 100) do begin a:=a+7; if (a >= 100) then break; write(a, ' '); end; readln(); end.
- Log in to post comments
- 3933 reads
gani84
Sat, 10/17/2020 - 17:54
Permalink
Ответ
Там через for надо решить
testok
Fri, 10/30/2020 - 05:19
Permalink
program Project7;
vedro-compota
Sun, 11/01/2020 - 16:57
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)
sergio
Sat, 11/21/2020 - 13:38
Permalink
ну почему только через for ?
ну почему только через for ? можно и через while
sergio
Sat, 11/21/2020 - 13:57
Permalink
ну почему только через for ?
sergio
Mon, 11/23/2020 - 19:51
Permalink
можно вовсе без if
можно вовсе без if