Задать вопрос
ИнформатикаИнформатика
1 марта, 07:24

Добавить пояснения к каждой строчке задачи Program z1; var i, j: byte; begin for i:=1 to 9 do begin for j:=1 to 9 do write (i*j:4); writeln; end; end.

+4
Ответы (1)
  1. 1 марта, 08:36
    0
    Program z1; / / задаем имя программы Z1

    var i, j: byte; / / объявляем две переменные i, j типа byte

    begin / / начало блока операторов 1

    for i:=1 to 9 do / / начало цикла, количество повторений равно 9

    begin / / начало блока операторов 2

    for j:=1 to 9 do / / начало цикла, количество повторений равно 9

    write (i*j:4); / / вывод на экран результата вычисления i*j:4, выводится при каждом / / выполнении цикла

    writeln; / / данный оператор нужен для вывода каждого результата с новой строки

    end; / / конец блока операторов 2

    end. / / конец блока операторов 1
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Добавить пояснения к каждой строчке задачи Program z1; var i, j: byte; begin for i:=1 to 9 do begin for j:=1 to 9 do write (i*j:4); ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=c*m; writeln ('s=', s); readln; end.
Ответы (1)
Написать пояснения к каждой строчке задачи Program z3; var i, j, s: word; begin for i : = 1 to 10000 do begin s : = 0; for j:=1 to i div 2 do if i mod j = 0 then s : = s+j; if s = i then write (i,' '); end; writeln; readln; end.
Ответы (1)
Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...'); Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...
Ответы (1)
Program n_1; Var a, b, x, y: real; Begin Writeln ('Введите a') readln (x); Writeln ('Введите b') readln (b); y:=3*x*x+x-4; While x
Ответы (1)
Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y);
Ответы (1)
Нужен ответ
Найдите координаты точки, через которую проходят графики функций y=kx - 2k-3 при любых значениях параметра k
Нет ответа
Вычислите (3-2 5/9) : 1/12 = 2) (7/18+5/12-2/3) * 0,9 = 3) (1,35-4/15) * 3/13+2 5/12 = 4) 0,1: (2 1/15+1/3) =
Нет ответа
дан параллелограм АВСD. O-точка пересечения диагоналей. Найдите векторы OD-OC, 2BO + DA, CD+DB+BA
Нет ответа
Решите уравнение: Logx (2 х^2 - 3 х) = 1
Нет ответа
1/2 это ... 4 1/3 это ... (в десятичных дробях)
Нет ответа
Главная » Информатика » Добавить пояснения к каждой строчке задачи Program z1; var i, j: byte; begin for i:=1 to 9 do begin for j:=1 to 9 do write (i*j:4); writeln; end; end.
Регистрация Забыл пароль