eeirikh
?>

это очень Каждой букве соответствует пара чисел: первое число – номер столбца, а второе число – номер строки в кодовой таблице.​

Информатика

Ответы

Бернард pokerman
Программа может выглядеть так:

uses Crt;
const n=50;
type Vec=array [1..n] of integer;
var A: Vec;
    i, Sum, Col: integer;
begin
ClrScr;
Randomize;
Sum:=0;
Col:=0;
 for i:=1 to n do
     begin
       A[i]:=10+random(40);
       Write(A[i]: 4);
       if (i mod 10 =0 ) then WriteLn;
       if (A[i] mod 7 = 1) or (A[i] mod 7 = 2) or (A[i] mod 7 = 5 ) then
         begin
              Sum:=Sum+A[i];
              Col:=Col+1;
         end;
     end;
 WriteLn;
 WriteLn (' Sum = ', Sum);
 WriteLn (' Col = ', Col);
ReadLn;
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

это очень Каждой букве соответствует пара чисел: первое число – номер столбца, а второе число – номер строки в кодовой таблице.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Dmitrychekov9
Анатольевич
Валерия Воробьева396
Жуков219
imiryakubov
irinalav2705745
Burov1446
aci2003
petrovichvit2933
Pavel1545
ortopediya
mariia39
kon200182
avolodyaev
npdialog66