Если я правильно понял задание, то вот:
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.
Иванов пришёл и провёл 6 уроков подряд
Петров пришёл ко 2 уроку и провёл 4 урока подряд
Сидоров пришёл к 1 уроку, провёл подряд 2 урока и ушёл домой
Окон нету. Таблица в приложении
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var s:=ReadString('введите свое имя и фамилию:');
for var i:=1 to 10 do s.Println;
end.
Возможно я не прав но вот
а) 111101
б) 010111
в) 111011010
г) 100000