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.
Submitted by Ilia_Sem on Sat, 10/23/2021 - 16:25
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.
Submitted by Ilia_Sem on Thu, 10/21/2021 - 20:29
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.
Submitted by boris68 on Tue, 08/17/2021 - 12:29
Преобразование двоичного числа в десятичное число очень просто, если учесть, что компьютеры используют двоичную систему с основанием 2. Размещение каждой двоичной цифры определяет ее десятичное значение. Для 6-разрядного (6-ти битного) двоичного числа значения рассчитываются следующим образом:
Задача: Есть массив, который заполнен различными целыми числами, включая отрицательные. Найдите самое большое произведение пары, то есть двух элементов массива, используя только один цикл.
Решение:
Задача номер 1
<?php
/* Задача номер 1. Вывести на экран N случайных чисел (каждое с новой строки) из диапазона [-21, 35]
ПРИМЕЧАНИЕ: подразумевается, что вы должны организовать цикл, который выполнится N раз и при этом в каждом своём витке выведет на экран случайное число.*/
$r = 0;
$i = 1;
$N = 5;
function randomcisla(&$a)
{
$a = rand(-21, 35);
}
while ($i <= $N)
{
randomcisla($r);
echo $r, " ";
$i++;
}
?>
Задача номер 2
<?php
1 Открываем сначала командную строку линукса ctrl+shift+t
2 Дальше определяем в какой папке находимся вводим команду pwd В моей системе это /home/q
3 Дальше давайте переместимся, например в /home/q/Загрузки, пишем: cd/home/q/Загрузки
Для ускорения работы виртуальной машины Вам необходимо увеличить размер оперативной памяти и поддержку видеопамяти в разделе "Настройки".
Pages