Программы,интерфейсы и гл.меню
Разные программы, данные...
var
i, b:integer;
begin
write('b = ');
readln(b);
for i := 10 to b do
writeln(i, ' * ', i, ' = ', i*i);
readln;
end.
//вторая задача
var
a, b, i:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
for i := a + 1 to b - 1 do
write(i, ' ');
readln;
end.
Первые три листа разрезать на 2 части и раздать ученикам (по половине листа). У нас остается 10 листов. Разрезать 10 оставшихся листов на 3 части и раздать ученикам по 5 листков (10*3=30; 30/6=5). В результате получится, что у каждого ученика есть 1 половина листа и 5 третьих частей листа.