Какое сообщение содержит большое количетсво информации a. монета упала "решкой" вверх b. в библиотеке книга нашлась в 5-м шкафу из восьми c. вася получил за экзамен 3 (единица не ставится) d. из колоды карт (32 шт.) выпала 7 пик

  чтобы узнать какое предложение содержит большее кол-во информации достаточно посчитать кол-во символов в предложении (пробелы, точки, тире тоже считаются символом). правильный ответ с.

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end. 

var a: integer;

begin

  read(a);

  if a mod 3 = 0 then writeln('делится')

  else writeln('не делится');

  readln;

end.