Регистрация
svetika0813
24.08.2022 05:06
Информатика
Есть ответ 👍

Складіть проєкт для малювання шести прямокутників з довжинами сторін a і b кроків,розміщених один під одним на відстані 10 кроків.Для задання значень змінних a i b використайте блок запитати і чекати(команду введення)

201
311
Посмотреть ответы 1

Ответы на вопрос:

romanov1100
romanov1100
4,8(17 оценок)
Вместо 20 можно подставить любое число, 20 соответствует m,n program new; var a: array [1..20,1..20] of integer; i,j,sum: integer; begin randomize; for i=1 to 20 do begin for j=1 to 20 do begin a[i,j]: =random(8)-15 end; end; for i=2 to 20 do begin for j=1 to 20 do begin sum: =sum+a[i,j]; i: =i+2; end; end; for i=1 to 20 do begin for j=1 to 20 do begin write(a[i,j]); end; writeln; end; writeln('сумма равна  ',sum: 8); end. p.s. делал без паскаля если какие то ошибки то пиши

Популярно: Информатика