World Wibe Web - Всемирная паутина
Var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
a[i]:=random(11)-0;
write(a[i]:4);
end;
s:=0;
for i:=1 to 8 do begin
if a[i] mod 2<>0 then
s:=s+1;
end;
writeln;
writeln(s);
end.
<span>Дисководы гибких магнитных дисков хранят данные примерно так же, как и жесткие диски - путем изменения магнитной полярности металлических частичек на их поверхности. Здесь сходство заканчивается. Первое отличие состоит в том, что дискеты можно вынимать из дисководов, то есть теоретически они предлагают неограниченное хранилище данных любому желающему. Но ограниченная емкость дискет (1, 44 МВ в отличие тысяч мегабайтов жестких дисков) уменьшает их полезность. (это дискета)</span>
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(-40,40,14).Select(x->x/10).Tabulate(x->x*x+2).Println;
Range(-4,4).Tabulate(x->x*x+2).Println;
end.
<u>Результат</u>
(-4,18) (-2.6,8.76) (-1.2,3.44) (0.2,2.04) (1.6,4.56) (3,11)
(-4,18) (-3,11) (-2,6) (-1,3) (0,2) (1,3) (2,6) (3,11) (4,18)