помогите решить задачи по информатике в паскале
1.с клавиатуры вводят числа. признак окончания ввода чисел число 0.вычислить сумму положительных и отрицательных чисел
2.сначала вводится количество чисел а затем сами числа вычислить количество чисел кратных 3
1.с клавиатуры вводят числа. признак окончания ввода чисел число 0.вычислить сумму положительных и отрицательных чисел
2.сначала вводится количество чисел а затем сами числа вычислить количество чисел кратных 3
More Questions From This User See All
Answers & Comments
Verified answer
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.