Var a:longint;
Begin
Read(a);
If (a>=1)and(a<=100) then writeln('молодёжь')else
If (a>=101)and(a<=200) then writeln('взрослые')else
If (a>=200)and(a<=250) then writeln('пенсионеры')else
Writeln('-');
End.
Var
a, b, c, min : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then min := a
else if (b <= a) and (b <= c) then min := b
else min := c;
write (min);
end.
Программа (без проверки исходных данных):
var a,b,y,z:real;
begin
write('a, b: ');
readln(a,b);
y:=cos(sqrt(a+b));
z:=ln(sin(y)/cos(y));
writeln('ln(tg(cos(sqrt(a+b)))) = ',z);
end.
Пример:
a, b: 0.5 0.8
ln(tg(cos(sqrt(a+b)))) = -0.813058267838025
Var a: String;
sum,i: Integer;
begin
sum:=0;
writeln('Введите текст');
readln(a);
for i:=1 to Length(a) do
begin
if a[i]='а' then sum:=sum+1;
end;
writeln('Буква а встречается: ',sum,' раз(а)');
end.