Question

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.

Answer 1

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 раз