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>
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var x:=ReadReal('x=');
var s:=0.0;
for var i:=1 to ReadInteger('n=') do s+=sin(i*x);
Writeln('s=',s)
end.
<u><em>Тестовое решение</em></u>
x= 0.543
n= 15
s=2.79048740821036
Int......................
в одной программе предусмотренны все 3 условия
program abc;
var i,sum1,sum2:integer;
begin
for i:=2 to 10 do
writeln('kvadraty',i*i,' Kyby',i*i*i);
for i:=1 to 200 do
sum1:=sum1+i;
writeln(sum1);
for i:=1 to 99 do
if i mod 4<>0 then sum2:=sum2+i;
writeln(sum2);
end.