Program enot;
Var x: array [1..20] of integer;
i:integer;
s,s1:real;
begin
for i:= 1 to 20 do
begin
x[i]:=i;
S:=x[i]*x[i]+(5/x[i]+2);
S1:=s1+s;
end;
write(s1);
<span>end.</span>
Правильный ответ г двадцать четыре нажатия!
СLS
INPUT a
IF a MOD 10 = 7 THEN PRINT "да, оканчивается" ELSE PRINT "нет, не оканчивается"
END
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Reverse.Println
end.
<u>Пример</u>
рука
акур
32 * 1024 * 768 бит = 32 * 1024 * 768 / 8 байт = 32 * 1024 * 768 * 8 / 1024 / 1024 = 3 Mb