Написать программу вНаписать программу в паскале.Проверить правильность решения примера (вида 2+3=5):

+ 0 -

Alinakcm

03 июля 2014 г., 9:03:14 (9 лет назад)

program gt;
var n,m,a,s1,s2,i:longint;
begin
read(n);
{n-кол-во чисел в левой стороне}
s1:=0;
for i:=1 to n do
begin
read(A);
s1:=s1+a;
end;
readln(m);
{m-кол-во чисел в правой стороне}
s2:=0;
for i:=1 to m do
begin
read(a);
s2:=s2+a;
end;
if(s1=s2)then writeln('yes')else writeln('no');
end.

+ 0 -

Tatiana888

03 июля 2014 г., 11:02:20 (9 лет назад)

числа <=10^9?

+ 0 -

Quiz

03 июля 2014 г., 12:15:09 (9 лет назад)

во втором правая сторона тоже может имет несколько чисел?

+ 0 -

Alehin2003

03 июля 2014 г., 13:55:09 (9 лет назад)

Нет, всего одно, результат сложения (или вычитания)