Question

Решить по информатике в паскале 1.с клавиатуры вводят числа. признак окончания ввода чисел число 0.вычислить сумму положительных и отрицательных чисел 2.сначала вводится количество чисел а затем сами числа вычислить количество чисел кратных 3

Answer 1

1)

var p,o,s:integer;
begin
Read(s);
while s<>0 do
begin
if s>0 then
p+=s
else
o+=s;
Read(s);
end;
Writeln('сумма положительных ',p);
Writeln('сумма отрицательных ',o);
end.

2)

var n,o,s:integer;
begin
writeln('введите кол-во чисел');
Read(n);
write('вводите числа по одному');
for var i:=1 to n do
begin
Read(s);
if s mod 3 = 0 then
o+=1;
end;
Write('кол-во кратных чисел 3 'o);
end.

Answer 2

Var
   A,So,Sp:real;
Begin
So:=0;
Sp:=0;
Repeat
Read(A);
if A>0 then Sp:=Sp+A
else So:=So+A;
Until A = 0;
WriteLn('Сумма положительных: ',Sp);
WriteLn('Сумма отрицательных: ',So);
End.

Var
   N,k,A:integer;
Begin
Write('Введите количество чисел: ');ReadLn(N);
Write('Введите сами числа: ');
k:=0;
For N:= 1 to N do
    Begin
    Read(A);
    if A mod 3 = 0 then k:=k+1
    End;
WriteLn('Количество чисел, кратных трём: ',k);
End.