Заданы три числа. Если их сумма равна нулю, то найти сумму первых двух чисел и вывести...

0 голосов
27 просмотров

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


Информатика (56 баллов) | 27 просмотров
0

написать программу? какой язык?

0

ПОКА ЧТО НЕ ЗНАЮ

Дан 1 ответ
0 голосов

Язык: 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.

(3.3k баллов)
0

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