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.

Question

Информатика

Пава

20 апреля, 12:35

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.

+3

Ответы (1)

Знаете ответ на вопрос?

Антигона · 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 раз