M = int(input("Введите возраст: "))
k = m % 10
if (m>9)and(m<20)or(m>110)or(k>4)or(k==0):
print("Вам",m,"лет.")
else:
if k==1: print("Вам",m,"год.")
else: print("Вам",m,"года.")
Пример:
<span>Введите возраст: 21
Вам 21 год.</span>
A:1,2,3,4,5;B:-1,-2,-3,-4,-5;C:1,2,3,4,5.
program d;
var a, b, c: integer;
begin
for c:= 1 to 5 do
begin
a:= a + 1;
b:= b - 1;
writeln (a:3,' ',b:3,' ',c:3);
end;
end.
Program prog;
uses crt;
var a,b,i,p: integer;
begin
clrscr;
p:=1;
write('Введите значение а = '); readln(a);
write('Введите значение b = '); readln(b);
if b>=a then begin
for i:=a to b do
p:=p*i;
writeln('Произведение Р = ', p);
end
else
writeln('a > b');
end.
Ответ будет 3, т.к. по алгоритму будет 0+3=3; 3+1=4; 4+(-1)=3;