<span>program zadacha;
var
a, b, c, s: real;
begin
writeln('Введите три числа: ');
readln(a, b, c);
if a < b then
if b < c then s := b
else
if a < c then s := c
else s := a
else
if b > c then s := b
else
if a > c then s := c
else s := a;
writeln('Среднее по значению: ', s);
end.</span>
Начало.
Оденься.
Если дома кто-нибудь остаётся,попрощайся.
То выйдя из квартиры.
Иначе ...?
Выйди из квартиры.
Закрой дверь.
Коней.
Андреев из Екатеринбурга
<span>Борисов из Перми </span>
<span>Васильев из Омска </span>
<span>Григорьев из Челябинск </span>
<span>Данилов из Новосибирска</span>
//Pascal ABC.NET v3.1 сборка 1172
Var
c:char;
begin
readln(c);
if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) or ((c>='А') and (c<='п')) or ((c>='p') and (c<='ё')) then writeln('Буква') else writeln('Символ');
end.
Пример ввода:
ю
Пример вывода:
Буква
Program maxx;
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln('введите кол-во оценок');
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
<span>end.</span>