1 вариант
Дано натуральное число:
1) найти сумму цифр этого числа;
2) верно ли, что первая и вторая цифры одинаковы;
3) Найти первую и вторую цифры.
2 вариант
Дано натуральное число:
1) найти произведение цифр числа;
2) верно ли, что в данном числе нет цифры А;
3) количество цифр этого числа
3 вариант
Дано натуральное число:
1) найти количество четных цифр в нем;
2) верно ли, что данное число заканчиватся цифрой А;
3) сумму четных цифр в нем.
4 вариант
Дано натуральное число
1) найти сумму первой и третьей цифр;
2) верно ли, что первая цифра четная;
3) сколько раз встречается цифра А в данном числе.
Пример:
Дано натуральное число. Найти первую и последнюю цифры этого числа.
program kr;
uses crt;
var d,k,k1,k2:integer;
begin
clrscrl;
writeln('d=');readln(d);
k:=1;
while d>0 do begin
if k:=1 then k1:=d mod 10;
if d div 10>0 then k2:=d div 10;
d:=d div 10;
k:=k+1;
end;
writeln(' 1-я справа ',k1);
writeln(' Последняя ',k2);
writeln(
| 
