))завтра урок уже(( а2внизу16-33внизу8*100внизу2-55внизу10: 101внизу2=0внизу16 15внизу16+7внизу8+9внизу10=0внизу2 - id15756420220926 от only10up 26.09.2022 13:43

Question

Информатика: ))завтра урок уже(( а2внизу16-33внизу8*100внизу2-55внизу10: 101внизу2=0внизу16 15внизу16+7внизу8+9внизу10=0внизу2 100внизу16+100внизу8+100внизу2=0внизу10 16внизу16+16внизу8=0внизу8и16 100внизу16-10внизу8-1внизу2=0внизу16и2 21внизу10+11внизу8-1001внизу2=0внизу16,8,2,10

only10up · Accepted Answer

// 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.

Тестовое решение:
Введите букву класса: Б
математический

Примечание: работа программы также проверена в Borland Pascal 7.01

MOGZ ответил