Помогите решить задачи по информатике в паскале 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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
