задача 3 урок 10
Primary tabs
program training;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
begin
i := readnl('число')
if i > 100 then
begin
b := for i to 1 do
writenl(b)
end
if i
begin
d := for 1 to i do
write (d)
end
end.
- Ilia_Sem's blog
- Log in to post comments
- 1907 reads