Program P1
var Name: string;
Age: integer;
begin
write ( укажите ваше имя)
readin ( string)
writlen( Здравствуйте , Name) ;

write ( ваш возраст)

readin ( integer)
write ( через два года вам будет : age + 2) ;
end
пример. ответить на во что будет, если вместо имени ввести цифру?
2) что будет, если на во о возрасте ввести букву? ​

Это обычный дешифратор. С увеличением А появляется 0 на очередном Q. Все остальные Q =1 (потому, что Q с инверсией).

А0 А1 А2 Q0 Q1 Q2 Q3 Q4 Q5 Q6 Q7

0    0   0    0    1     1     1     1     1     1     1

1     0    0   1    0    1     1     1     1     1     1

0    1     0    1     1    0    1     1     1     1     1

1     1     0   1     1     1    0    1     1     1     1

0    0    1    1    1      1     1    0    1     1     1

1     0    1     1    1     1     1     1     0   1     1

0    1     1      1    1     1     1     1      1   0    1

1    1     1      1    1      1     1    1      1    1     0

Объяснение:

Рисовать здесь не умею, но думаю понятно.

1в.

1)Код Pascal

begin

write('N = ');

readln(N); { <-- вводим трехзначное число }

writeln;

N := N mod 100; { <== Последние две цифры }

{ Выводим последнюю и среднюю цифры числа: }

writeln('Последняя цифра: ', N mod 10);

writeln('Средняя цифра: ', N div 10);

readln

end.

2)

var

N: word; { Трехзначное число }

t1, t2, t3: byte; { Цифры трехзначного числа }

begin

write('Введите трехзначное число: ');

readln(N); { <-- вводим трехзначное число }

writeln;

t3 := N mod 10; { <== третья цифра }

N := N div 10; { <== число созданное первыми двумя цифрами }

t2 := N mod 10; { <== вторая цифра }

t1 := N div 10; { <== первая цифра }

writeln('Сумма цифр: ', t1 + t2 + t3);

readln

end.