Qbasic задана матриця k(n,l) знайти кількість відємних, кратних трьом елементів. заданная матрица k (n, l) найти количество отрицательных, кратных трем элементов.

286

371

Посмотреть ответы 2

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

Qwerfcsfvfw

Информатика

4,6(18 оценок)

Const n = 5; l = 8; var k: array[1..n, 1..l] of integer; i, j, p: integer; begin randomize; for i : = 1 to n do begin for j : = 1 to l do begin k[i, j] : = random(100) - 50; write(k[i, j]: 5); end; writeln end; p: =0; for i : = 1 to n do for j : = 1 to l do if (k[i, j]< 0) and (k[i,j] mod 3=0) then p: =p+1; writeln('найдено отрицательных элементов, кратных трем: ',p) end. тестовое решение: 27 42 0 25 -49 41 -16 -14 -26 -29 27 -16 10 -16 17 18 -4 10 17 -26 45 -23 48 -44 -47 28 25 -1 -31 24 35 -47 -39 49 -48 29 -42 2 -6 32 найдено отрицательных элементов, кратных трем: 4

Анoнuм

Информатика

4,7(93 оценок)

//pascalabc.net //версия 3.3. сборка 1583 (25.11.2017) begin var fio: =readlnstring('введите фамилию имя отчество-> '); var b: =0; for var i: =1 to fio.length-1 do if (fio[i]='м') or (fio[i]='м') then b+=1; if b< > 0 then println('буква "м" есть в строке. она повторяется',b,'раз(а).') else println('буквы "м" нету в строке.'); end. пример: 1) введите фамилию имя отчество-> миг мария моисеева буква "м" есть в строке. она повторяется 3 раз(а). 2) введите фамилию имя отчество-> петренко петр петрович буквы "м" нету в строке.