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

Question

Информатика

Вовуша

24 февраля, 10:44

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

+4

Ответы (1)

Знаете ответ на вопрос?

Венедиктыч · Answer 1

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.