919 индекс 10 -8х8 по информатике ..кто отв 20 б

Question

Информатика: 919 индекс 10 -8х8 по информатике ..кто отв 20 б​

alexsashinav · Accepted Answer

Var a: byte; b:integer; Begin  writeln( Введите день месяца ); readln(b); writeln( Введите номер месяца );    Readln(a);               Case a of         1: writeln(b, янавря );         2: writeln(b, февраля );       3: writeln(b, марта );         4: writeln(b, апреля );       5: writeln(b, мая );       6: writeln(b, июня );         7: writeln(b, июля );        8: writeln(b, августа );      9: writeln(b, сентября );      10: writeln(b, октября );      11: writeln(b, ноября );        12: writeln(b,...

919 индекс 10 -8х8 по информатике ..кто отв 20 б​

MOGZ ответил