Как разгадать Японский кроссворд

Знания

Информатика

1 ответ:

Alenagns4 года назад

0 0

132456789132456789
132456789132456789

Читайте также

Написат программу для вычисления суммы четных элементов заданного массива А состаяшего из 20 ти елементов

Павел 110

Const
   N = 20;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    if A[i] mod 2 = 0 then S:=S+A[i];
    End;
WriteLn;
WriteLn('Сумма чётных элементов: ',S);
End.

0 0

4 года назад

Прочитать ещё 2 ответа

Ризат создает растровый рисунок

Лимбо

Горный Paint с осоом на иконке

0 0

4 года назад

Определите, каким цветам соответствуют следующие десятичные коды в системе RGB: a) 255, 0,255 b) 255,255,0

Пимошенко Марина

Ответ:

1) Пурпурный (похож на розовый)

2) Желтый

Объяснение:

0 0

4 года назад

Составить программу которая определяет среди введеных с клавиатуры целых чисел количества нечетных до ввода числа 0

Aslan200 [7]

var
a,k :integer;
begin
repeat
begin
writeln ('введи число');
read (a);
if (a mod 2 <>0) then k:=k+1;
end;
until a=0;
writeln ('количество нечетных чисел k=',k);
end.

0 0

4 года назад

Прошу !!!!Pascal. Задача помогите!!!!!!!!

Настя113

Ответ:VVVVVVVVVVVVVVVVVVVVVVVVVV

0 0

4 года назад