# обучение программированию с нуля бесплатно

## здравствуйте у меня вопрос

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

## mil conflict

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.

## Тема 9 задача 2

program Project2;
var a,b: integer;

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

## задача 1 урок 11

program training;

{$mode objfpc}{$H+}

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

begin;
if i begin;
writeln(i + 7);
end;
if i > 15 then;
end;
end.

## задача 7 урок 10

program training;

{$mode objfpc}{$H+}

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

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

## задача 6 урок 10

program training;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
{$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.

## задача 5 урок 10

program training;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
{$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.

## задача 4 урок 10

program training;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
{$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.

## задача 3 урок 10

program training;

{$mode objfpc}{$H+}

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

begin
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.

## Pages 