Предмет: Информатика,
автор: vadzxc
Заданы три числа. Если их сумма равна нулю, то найти сумму первых двух чисел и вывести результат. ПЖ УМОЛЯЙ ДАЮ 98 БАЛОВ!!!!!!!!!!!!!!СРОЧНО
Cr0mvel:
написать программу? какой язык?
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Djama00
Предмет: Математика,
автор: romchik99999
Предмет: Русский язык,
автор: veronikakuzmina
Предмет: Физика,
автор: niuraboikova1
Предмет: Физика,
автор: Lina788899