Регистрация
denchik83
11.06.2020 04:57
Информатика
Есть ответ 👍

Задано алфавіт A={a,b,c}. Побудувати НАМ, який у слові p заміняє всі пари cb на a

175
291
Посмотреть ответы 1

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

Ятот
Ятот
4,4(85 оценок)
Var a=array  [1..5,1..8]of byte; i,j,sum: integer; begin for i: =1 to 5 do     for j: =1 to 8 do     a[i,j]: =random(10); for i: =1 to 5 do begin     for j: =1 to 8 do      write(" ",a[i,j]); writeln(); end; sum: =0; for i: =1 to 5 do     for j: =1 to 8 do     if (a[i,j]> 5) then sum: =sum+a[i,j]; if (sum< > 0)then writeln("summa= ",sum) else if (sum=0) then writeln("net bolhe 5"); end.

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