блог студента программиста

а кто небудь может на простом языке немного расказать о графической панели ? просто очень интересно как она рабоатет.

Where you were with “petitions” when ukrainian nazi-groups were bombing and killing Russian people and children on Donbass territory?

Or when your US government were bombing people in Syria, Somali, Iraq (as usual)?
May be, you just didn’t see info about all these facts in “ALL free media, and all GLOBAL LEADERS” channels?
Or may be your “free” media are too free to stop keep silence in such moments??

Many people in Russia understand real reason of this “peaceful” campaign.

program Project2;
var a,b: integer;

begin
writeln('vvedite pervoe chislo');
readln(a);
writeln('vvedite vtoroe chislo');
readln(b);
if (a > b) then
writeln(12)
else
writeln(888);
readln();
end.

program training;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

begin;
i := readln('luboe hislo');
if i begin;
writeln(i + 7);
end;
if i > 15 then;
end;
end.

program training;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

begin;
i := for 1 to 100;
writeln((i mod 7) = 0);
end.

program training;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

begin;
i := for 35 to 117 do;
writeln((i mod 3) = 0);
b := for 45 to 99 do;
writeln((b mod 3) = 0);
end.

program training;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

begin
i := for 35 to 117 do
writeln((i mod 2) = 0)
b := for 45 to 99 do
writeln((b mod 2) = 1, 2, 3, 4, 5, 6, 7, 8, 9)
end.

program training;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };

begin
i := for 35 to 117 do
if((i mod 3) = 0) AND ((i mod 2) = 1,2,3,4,5,6,7,8,9 )
writeln(' i : 3 ')
end.

• Github Copilot https://www.youtube.com/watch?v=4duqI8WyfqE

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.