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