Решить по информатике в паскале 1.с клавиатуры вводят числа. признак окончания ввода чисел число 0.вычислить сумму положительных и отрицательных чисел 2.сначала вводится количество чисел а затем сами числа вычислить количество чисел кратных 3
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.
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.
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.
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.