Program age;
var m:integer;
begin
readln(m);
if (m<=13) then writeln('детство');
if (m>=14)and(m<=24) then writeln('молодость');
if (m>=25)and(m<=59) then writeln('<span>зрелость</span>');
if (m>=60) then writeln('старость')
end.
<span>char a[100];
puts("Введите строку:");
gets(a);
int count=0;
for(int i=0;i<strlen(a);i++)
{
switch(a[i])
{
case 'а';count++;a[i]='b';break;
case 'b';a[i]='а';break;
}
}
</span>
Program sber;
const
n = 4;
k = 0.06;
var
fv, x: real;
begin
write('x = ');
readln(x);
fv := x * exp(ln(1 + k) * n);
writeln('Сумма: ', fv);
end.