Срочно!!! найти сумму двух первых цифр заданного четырёхзначного числа если оно кратно 5
Срочно!!! найти сумму двух первых цифр заданного четырёхзначного числа если оно кратно 5
Гость
Ответ(ы) на вопрос:
Гостьprogram krat5;
var
n: integer;
begin
write('число: ');
readln(n);
if n mod 5 = 0 then
writeln( (n div 1000) + (n mod 1000 div 100) )
else
writeln('не кратно 5');
end.
Не нашли ответ?
Похожие вопросы