Составить программы:

1. Вычисления суммы цифр трехзначного числа (используя mod и div)

2. Определения наибольшего из трёх чисел a, b, c

3. Определения является ли счастливым билет с четырёхзначным номером.

Question

Информатика

Кейдра

16 августа, 21:52

Составить программы:

1. Вычисления суммы цифр трехзначного числа (используя mod и div)

2. Определения наибольшего из трёх чисел a, b, c

3. Определения является ли счастливым билет с четырёхзначным номером.

+4

Ответы (1)

Знаете ответ?

звезда · Answer 1

Program zzadani; Var n, b, a, c:integer; Begin Writeln ('Введите трехзначное число') ; Readln (n) ; a:=n div 100; b: = (n div 10) mod 10; c: = (n mod 100) mod 10; n:=a+b+c; Writeln ('Сумма цифр данного числа=', n) ; End.