Question

Заданы три числа. Если их сумма равна нулю, то найти сумму первых двух чисел и вывести результат. ПЖ УМОЛЯЙ ДАЮ 98 БАЛОВ!!!!!!!!!!!!!!СРОЧНО

Answer 1

Язык: Pascal ABC

program name;
var a, b, c, d:integer;
begin
Readln(a, b, c) ;
d:= a+b+c;
If d = 0 then
Begin
d:= a+b;
Writeln(d)
End
Else
Writeln('Сумма трех чисел равна ', d)
End.

Answer 2

СПС ВСЕМ ПОМОГЛИ

Answer 3

program huiya;

var
one,two,three:Integer;

begin
writeln('первое число');
readln(one);
Writeln('второе число');
readln(two);
writeln('третье');
readln(three);
If (one+two+three)=0
then writeln('сумма первых двух чисел: ' ,one+two)
else writeln('сумма трех чисел не равна нулю');
readln; {ридлн для паузы}
end.

Answer 4

сори, не могу передать так, пиши свой вк, скину