Pascal ABC. Найти сумму цифр числа, больших 5 Помогите, пожалуйста
Answers & Comments
Cr0mvel
Program name; var a,b,c:integer; begin readln(a,b,c); writeln('Сумма введённых чисел:', a+b+c); end.
Эта программа подсчитывает сумму трёх введёных чисел.
program name; var a,b,c:integer; begin readln(a,b,c); if a+b+c>5 then writeln('Сумма введённых чисел:', a+b+c) else writeln('Сумма чисел должна быть больше пяти!'); end.
А эта программа складывает только те числа, которые в сумме дают больше 5. Выбирай, какой больше подходит
Answers & Comments
var a,b,c:integer;
begin
readln(a,b,c);
writeln('Сумма введённых чисел:', a+b+c);
end.
Эта программа подсчитывает сумму трёх введёных чисел.
program name;
var a,b,c:integer;
begin
readln(a,b,c);
if a+b+c>5 then
writeln('Сумма введённых чисел:', a+b+c)
else
writeln('Сумма чисел должна быть больше пяти!');
end.
А эта программа складывает только те числа, которые в сумме дают больше 5. Выбирай, какой больше подходит