26*10*9=2340
26 - различных вариантов букв на первой позиции
10 - цифры 0,1,2,3,4,5,6,7,8,9 на второй или третьей
9 - цифры без нуля (т.к. двух нулей быть не может)
// PascalABC.Net 3.0, сборка 1066
const
s1='АБВГабвг';
s2='12341234';
var
c:char;
i:integer;
begin
Write('Введите букву класса: '); Readln(c);
i:=Pos(c,s1);
if i>0 then begin
c:=s2[i];
case c of
'1':Writeln('гимназический');
'2':Writeln('математический');
'3':Writeln('обычный');
'4':Writeln('коррекционный')
end
end
else Writeln('Неверная буква')
end.
<em><u>Тестовое решение:</u></em>
Введите букву класса: Б
математический
<em><u>Примечание: работа программы также проверена в Borland Pascal 7.01</u></em>
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var s1:='конституция';
var s2:='указ';
Writeln(s2[4:2:-1]+s1[1:4])
end.
//1
var
A: array [1..10] of integer;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(81)-40;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if i mod 2 = 0 then A[i] := sqr(A[i])
else A[i] := sqr(i);
write(A[i], ' ');
end;
end.
//2
var
A: array [1..10] of real;
i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
A[i] := random(41)-20;
write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
if A[i] < 0 then A[i] := sqr(A[i]);
if A[i] > 0 then A[i] := sqrt(A[i]);
write(A[i]:0:2, ' ');
end;
end.
//3
var
A: array [1..200] of real;
i, N: byte;
sum: real;
begin
write('Введите N = ');
readln(N);
sum := 0;
for i := 1 to N do
begin
write('З/П за ', i ,' месяц = ');
readln(A[i]);
sum := sum + A[i];
end;
writeln('Общий доход = ', sum:0:2);
end.