Riesomfal
5 год назад
Дано трехзначное натуральное число. Найти разность между заданным числом и суммой его цифр. написать рограмму в паскале
ПОЖАЛУЙСТА до завтра нужно
ОТВЕТЫ
Ефим
Jun 30, 2019
Var obs,n:integer;
begin
writeln(Введите трехзначное число);
readln(n);
obs:=n-((n div 100)+(n div 10 mod 10)+(n mod 10));
writeln(Разность между заданным числом и суммой его цифр = ,obs);
end.
begin
writeln(Введите трехзначное число);
readln(n);
obs:=n-((n div 100)+(n div 10 mod 10)+(n mod 10));
writeln(Разность между заданным числом и суммой его цифр = ,obs);
end.
120
Смежные вопросы:
