Задать вопрос
14 июня, 19:05

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.

+2
Ответы (1)
  1. 14 июня, 21:35
    0
    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 раз
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1. Некто составил программу, в который определяеться количество чисел в интервале от 200 до 500 которые деляться на 14. Он допустил ошибку. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы