Вопрос от пользователя: Виктор
1. Некто составил программу, в который определяеться количество чисел в интервале от 200 до 500 которые деляться на 14. Он допустил ошибку. Исправте их и запишите верный вариант программы
program Программа_2;
var n, z:integer;
begin
z=:0; n=:100;
for n:=100 to 1000 do begin
if (n div 14 = 0) then writeln (n);
z:=z+1;
end;
writeln (z);
end.
2. Определите, что будет напечатано в результате выполнения следующего алгоритма записанного в паскале. Укажите, сколько раз выполниться цикл тела.
Var z, n, i:integer;
Begin
z:=30;
for n:=8 to 15 do begin
if n > 10 then z:=z-2*n
else z:=z+n; end;
writeln (z)
end.
Ответ: Гаша
1)
var n, z:integer;
begin
z:=0; //z=:0 знак присваивания выглядит вот так «:=»
//n=:100 — не нужно иницилизировать параметр цикла.
for n: = 200 to 500 do begin//for n:=100 to 1000 do begin — цикл должен идти от 200 до 500, а не со 100 до 1000
if n mod 14 = 0 then / / if (n div 14 = 0) then — div — Целая часть от деления, а mod — остаток.
z:=z+1; //writeln (n); — Выводить n не нужно совсем, а вот увеличить счетчик не помешает
//z:=z+1; — а вот тут уже лишнее
end;
writeln (z);
end.
2)
-73, выполнится 15 — 8 + 1 = 8 раз
