program primer;
var a,b,c,d:integer;
begin
writeln ('введите значение для переменной a');
readln(a);
writeln ('введите значение для переменной b');
readln(b);
if a>b then
begin c:=1; d:=2; end
else begin c:=3; d:=4; end;
writeln('c=',c,' ','d=',d);
readln;<span>
end.</span>
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandomReal(ReadInteger('n='),-50,50);
a.Transform(x->Trunc(100*x)/100); // Чтобы числа легче было читать))
a.Println;
var a0:=a[0];
a:=a.Select((x,i)->i.IsEven?x/a0:x).ToArray;
a.Println
end.
<u>Пример</u>
n= 8
-37.63 0.61 41.54 -46.8 34.42 23.66 13.12 7.64
1 0.61 -1.10390645761361 -46.8 -0.914695721498804 23.66 -0.348657985649747 7.64
Программа на Паскале:
Program BiFi;
Var R,a:real;
Begin
readln(R,a);
if a<=(R*sqrt(2)) then writeln('Yes');
else writeln('NO');
readln;
end.
1) 5.12 байт
2) 16 бит
3) 512 байт
2,224 Мегабайта
1 Килобайт=0,001 Мегабайта