Submitted by Shelkunchik98 on Fri, 11/26/2021 - 12:04
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.
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.