uses crt;
var i:integer;
begin
For i:=20 to 50 do
If (i mod 3=0) and (i mod 5 <> 0) then writeln(i);<span>
end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.
...гор-бугор. догор нет такого слова
60Мб *1024*1024 = 62914560 байт
256Кбит = 32000 байт
31457280/32000 + 31457280/16000 = 983,04 + 1966,08 = 2949,12 сек ≈ 49 мин 9 сек
Uses Crt;
var
i:integer;
a:array[1..10] of integer;
count: integer;
Begin
ClrScr;
for i:=1 to 10 do begin
a[i]:=i*3;
if i mod 2 = 0 then a[i]:= a[i]*(-1);
write(a[i],' ');
end;
<span>End.</span>