Регистрация
rom20081sdf
22.03.2020 00:00
Информатика
Есть ответ 👍

Сделать программу в фри паскале : сначало надо найти сумму положительных\отрцательных и потом их сложить

181
193
Посмотреть ответы 2

Ответы на вопрос:

гавканье
гавканье
4,4(96 оценок)

var ch,so,sp: integer;

begin

for i: =1 to 4 do

begin

if ch> 0 then sp: =s+ch

else 

so: =so+ch;

end;

writeln(so+sp);

end.

 

как то так

zhanym2
zhanym2
4,5(32 оценок)

фигня!

 

var

begin

  for i : = 3 to 9 do

  begin

  if (i mod 4 = 0) then

    begin

    s : = s + i;

    end;

  end;

  writeln('сумма равна ',s);

end.

 

если что-то непонятно пиши в вк  /pifi_fc

Популярно: Информатика