Program n_1;
uses math;
var i, n, m, a, kol, j:int64;
begin
readln(n);
kol:=0;
a:=n;
while a<>0 do begin
a:=a div 10;
kol:=kol+1;
end;
m:=n mod 100;
for i:=1 to kol-1 do begin
if((n div 10) mod 100 > m) then m:=(n div 10) mod 100;
n:=m div 10;
end;
writeln(m);
end.
Решение чисто математическое. Думаю через строковый тип данных работать будет намного проще.
Данные в таблице практически везде неверные, если свериться с астрономическими справочниками. Ну да не суть важно.
Во вложении - файл Microsoft Word-2003 с таблицей.
Это выводит в какой по номеру день опаздало наибольшее количество учеников (1-пн, 2-вт и т.п.)
Изображение прикреплено. Формула написана наверху.
Set /p a="Name: "
dir %a%
@pause
Насколько я помню, так:)