Разработайте программу, которая задаёт пользователю - вопрос №442886 от fananenkova 08.05.2020 13:26

Question

Информатика: Разработайте программу, которая задаёт пользователю три вопроса о том, какие числа ему нравятся (например вам нравятся числа, кратные 3? , вам нравятся двузначные числа? , вам нравятся числа, оканчивающиеся цифрой 4? и т.п., вопросы придумаете сами). получив от пользователя три ответа можно сделать так, чтобы это были не да и нет, а true или false), программа просит пользователя ввести число и выводит, нравится оно пользователю или нет. будем считать, что число нравится пользователю в том случае,

fananenkova · 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, декабря ); ...