Blogs

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

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.

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

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.

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

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.

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

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.

задача 2 урок 10

program training;

{$mode objfpc}{$H+}

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

begin
a := readln('')
i := for a to 1 do
writenl(i : 5)
end.

задача 1 урок 10

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 64 do
writenl(i)
readln('')
end.

задача №2 урок 9

program training;

{$mode objfpc}{$H+}

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

begin;
b := readln('напишите 1-ое число');
a := readln('напишите 2-ое число');
if (a > b) then;
begin;
writeln(a + b);
writeln(a - b);
if((a + b) > 25) then;
begin;
writeln('a');
writeln('b');
end;
end;
end.

QR коды в Воронеже

Как-то я писал про то, что скалолазание неплохой спорт, так вот сегодня мне пришлось поставить тренировки на паузу.

В Воронежской области тоже ввели **QR-аусвайсы**, на людей оказывают давление любыми доступными способами (от недопуска в спортзал, до выселения из общежитий и увольнения с работы), все эти __телодвижения__ в том числе призваны замаскировать __разваленную__ систему здравоохранения, кое-как работавшую раньше __без малейшего запаса прочности__.

vscode Замена пробелов на табы

Замена пробелов на табы в конкртеном файле

Для однократной замены действуем так:

  1. Открываем нужный нам файл
  2. Нажимаем кобиннцию клаши ctrl+shift+p
  3. Далее в поиске команды вводим что-то вроде "Convert indentation To Tabs" (можно искать просто по строке "tabs")
  4. Кликаем на найденную команду и созраняем файл

Выполнение этой команды приведет к тому, что в указанном файле пробелы перестанут заменяться на табы.

Источник: https://stackoverflow.com/a/37509777

Pages

Subscribe to RSS - blogs