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

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

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

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

Question

Информатика

Аксенияе

24 июля, 15:25

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

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

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

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

+1

Ответы (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.