Program task;
var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.
Проще будет создать новый
а как восстановить доступ к акку на телефоне не знаю
81 клетка получится в оэтом кводрате
Кот'М папа'''(нарисуешь) тень''(нарисуешь)рак''
Можно так а можешь просто словами