Вопрос школьника по предмету Информатика
помогите решить задачи по информатике в паскале
1.с клавиатуры вводят числа. признак окончания ввода чисел число 0.вычислить сумму положительных и отрицательных чисел
2.сначала вводится количество чисел а затем сами числа вычислить количество чисел кратных 3
Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
Решите уравнение :
X+7-x/3=3
2) Смешали 70 гр. 10%-ного раствора азотной кислоты. Каково процентное содержание азотной кислоты во вновь полученном раствора?
Учитель сказал ответы 1) 32,5, 2)0,18, задал только решение и дано написать