В других городах подают и у нас надо бы
Начата организация коллективного судебного иска против QR кодов в Воронеже.
Подробности можно почитать на канале в Телеграм: https://t.me/rslnru
Есть "фоллоу-фокусы" (беспроводные системы управления фокусом), но куда смотреть оператору такого фокуса -- Фокус-пуллеру?
Нужен "беспроводной монитор", но что-то такое в Сети не ищется. Зато есть устройства, который могут транслировать сигнал с видео-разъема, которые используют обычные накамерные мониторы, но выводит его не на экран, а передает "по радио", принять сигнал можно на телефоне или планшете, которые и будут вашим внешним монитором.
Эти устройства могут называть: "видеосендер", "видео трансмиттер"
Submitted by Ilia_Sem on Thu, 11/04/2021 - 19:44
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.
Submitted by Ilia_Sem on Thu, 11/04/2021 - 19:42
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.
Submitted by Ilia_Sem on Thu, 11/04/2021 - 19:41
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.
Submitted by Ilia_Sem on Tue, 11/02/2021 - 16:28
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.
Submitted by Ilia_Sem on Thu, 10/28/2021 - 20:54
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.
Submitted by Ilia_Sem on Sun, 10/24/2021 - 15:38
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.
Submitted by Ilia_Sem on Sat, 10/23/2021 - 16:33
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.
Pages
