Напишите программу, которая получает три числа -рост трёх спортсменов, и выводит сообщение «По росту. », если они стоят по возрастанию роста, или сообщение «Не по росту!», если они стоят не по росту. pascal

в системе ascii 1 символ кодируется 1 байтом, в юникоде 2 (ну так, к слову)

текст наш состоит из 30 символов (пробелы и знаки припинания тоже считаем), значит он занимает 30 байт = 240 бит

7680*90=691200

691200/16=43200

43200/400=108 страниц

у меня тоже даша получилось))

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.