Бл*, весь код коту под хвост
нечего не выдаст...
var a:integer;
begin
readln (a);
writeln('Цифра десятков: ',abs(a) div 10);
writeln('Цифра единиц: ',abs(a) mod 10);
end.
Пример:
25
Цифра десятков: 2
Цифра единиц: 5
Ответ:
1)
1 поколение ламповый машины
2 поколение вычислительные системы на большой интегральной схеме
3 поколение миникомпьютеры на интегральных схемах
4 поколение Исскуственеый интелект
2)
(1) абак
(2) цифровой компьютер
(3) аналоговый компьютер
3)
(1) пятого поколения
(2) Исскуственеый
ну всё
B=0k=0a=list(input("Введите число"))c=''a.reverse()for i in range(len(a)): c=str(c)+str(a[i])for i in range(len(a)): if int(a[i])%2==0: k+=1 else: b+=1print('Число четных цифр',k)print('Число нечетных цифр',b)print(c)