uses graphabc;
var
x: integer;
begin
setwindowsize(200, 200);
read(x);
if (x mod 3 = 0) then
begin
setbrushcolor(clgreen);
fillcircle(100, 100, 60);
end
else
begin
setbrushcolor(clyellow);
fillrectangle(150, 150, 50, 50);
end;
end.
Для пк - мало, да и для других девайсов - мало, приходится все время подчищать память
для пк норм - 500гб, минимум
кодек -кодекС
кодек - <span>шифратор/дешифратор</span>
<span> кодекс- свод законов</span>
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p.IsEven and (p > 100))
.Min
.Println
end.
<span>Думаю, что нужно представить слово "ЁЖ" в виде аббревиатуры. Алгоритм и объяснения будут зависеть от словосочетания, которое будет обозначено словом "ЁЖ".</span>