Составить алгоритм и написать программу на паскале нахождение разности цифр 4-х значного числа

Levern Levern    2   12.07.2019 01:50    0

Ответы
usan2005 usan2005  15.09.2020 13:23
Var a,b,c,d,N:integer;
begin
Readln(N);
a:=N div 1000;
b:=(N div 100) mod 10;
c:=(N div 10) mod 10;
d:=N mod 10;
N:=a-b-c-d;
Writeln(N);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика