Var i,b,c:integer;
a:array[1..100] of integer;
Begin
Read(b);
I:=1;
While b<>0 do
Begin
A[i]:=b;
I:=i+1;
Read(b);
End;
C:=i-1;
D:=0;
B:=0;
For i:=1 to c do
If a[i]>99
Then begin b:=b+a[i]; d:=d+1; end;
If b=0
Then writeln('NO')
Else writeln(b/d);
End.

0 0

4 года назад

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел кратных 8 и оканчивающихся на 6

rudik43

program raf105;

var a,sum: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

readln(a);

if (a mod 8 = 0) and (a mod 10 = 6)

then sum+= a;

until a = 0;

writeln('Сумма: ',sum);

end.

<h3><u>PascalABC 3.4.2</u></h3>

0 0

4 года назад

Составить 5 ребусов по Информатике на тему:Компьютер.Слова,по которым надо составить ребусы: клавиатура,принтер,колонки,монитор,

Лерка86

На один ребус тебе. излогает шум но не играет. С проводом но без электричества. Что это?

0 0

3 года назад