Задача 1. Введено число. Известно, что оно может быть равно от 10 до 999, определить сумму цифр в этом числе

Задача 2. Введено три числа. Определить количество четных из них, больших пяти

Задача 3. Введено трехзначное число, вывести это число с отсортированными по порядку цифрами

Задача 1.

var a, k, l, m: Integer;

begin

s: = 0;

writeln ('Введите число') ;

readln (a) ;

if (a>=10) and (a<=999) then

k:=a div 100;

l: = k div 10;

m: = a mod 10;

s: = k+m+l;

writeln ('Сумма цифр в числе равна ', s) ;

end.

Задача 2.

var i, a, s: Integer;

begin

s:=0;

for i: = 1 to 3 do

begin

writeln ('Введите число №', i) ;

readln (a) ;

if (a>5) and (a mod 5 = 0) then

inc (s) ;

end;

writeln ('Количество четных чисел, которые делятся на 5 - ', s) ;

end.

Задача 3

var a, b, c, d, max, med, min: Integer;

begin

writeln ('Введите число') ;

readln (a) ;

b: = a div 100;

c: = b div 10;

d: = a mod 10;

if (b
min: = b;

if (c
min: = c;

if (d
min: = d;

if (b>c) and (b>d) then

max: = b;

if (c>b) and (c>d) then

max: = c;

if (d>c) and (d>b) then

max: = d;

if (b>c) and (b
med: = b;

if (c>b) and (c
med: = c;

if (d>c) and (d
med: = d;

writeln (min, med, max) ;

end.