Регистрация
Vika15511
28.04.2020 11:03
Математика
Есть ответ 👍

Перевести с pascal на qbasic const n = 4; var a: array [1..n,1..n] of integer; i,j,answer: byte; found: boolean; writeln('введите элементы матрицы: '); for i: =1 to n do for j: =1 to n do readln(a[i,j]); writeln(''); end; writeln; for i: =1 to n do for j: =1 to n do write(a[i,j],' '); writeln; end; writeln; answer: =0; found: =false; for i: =1 to n do for j: =1 to n do if not odd(a[i,j]) then found: =true else found: =false; break end; if found = true then answer: =i end; writeln('последняя строка, содержащая только четные элементы: ',answer); end.

210
227
Посмотреть ответы 1

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

rast052
rast052
4,5(60 оценок)
Маша первая получит сто

Популярно: Математика