с ошибкой это Ардуино Несколько библиотек найдено для "SoftwareSerial.h"
Используется: C:\Users\User\Documents\ArduinoData\packages\esp8266\hardware\esp8266\2.7.4\libraries\SoftwareSerial
Не используется: C:\Users\User\Documents\Arduino\libraries\GyverMatrixOS_v1.15
In file included from C:\Users\User\Documents\Arduino\GyverMatrixOS_v1.15\OctoWS2811Demo.ino:2:0:
C:\Users\User\Documents\Arduino\libraries\GyverMatrixOS_v1.15/OctoWS2811.h:28:24: fatal error: DMAChannel.h: No such file or directory
#include "DMAChannel.h"
^
compilation terminated.
exit status 1
Ошибка компиляции для платы WeMos D1 R1.
type
num=integer; { можно поменять на real, longint, даже char... }
procedure Swap(var a,b:num);
{ меняет местами значения a и b }
var
t:num;
begin
t:=a; a:=b; b:=t
end;
procedure Moving(var a,b,c:num);
begin
if a>b then begin
Swap(a,b);
if b>c then begin
Swap(b,c);
if a>b then Swap(a,b)
end
end
else begin
if b>c then Swap(b,c);
if a>b then Swap(a,b)
end
end;
var
a,b,c:num;
begin
Write('Введите три числа: '); Read(a,b,c);
Moving(a,b,c);
Writeln(a,' ',b,' ',c)
end.
Уровень В
function Gcd(a,b: longint): longint;
{ Нахождение НОД }
var
i: longint;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;
procedure ShortFraction(var m,n:longint);
var
k:longint;
begin
k:=Gcd(m,n);
m:=m div k; n:=n div k
end;
var
a,b:longint;
begin
Write('Введите числитель и знаменатель дроби: '); Readln(a,b);
ShortFraction(a,b);
Writeln('Дробь после сокращения равна ',a,'/',b)
end.
Тестовое решение:
Введите числитель и знаменатель дроби: 25 15
Дробь после сокращения равна 5/3