Var
x:integer;
begin
writeln('x=');
readln(x);
writeln('вы ввели:',x);
x:=0;
writeln('произошла замена. Теперь x=',x);
end.
Еда напитки всего
бутер
кофе 2
пряник
плюшка 4
сок 2
кекс
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(20,10,100); a.Println;
a.Select(x->x+50).Println
end.
<u>Пример</u>
24 22 31 78 68 99 82 27 83 15 84 71 14 11 14 59 83 80 24 90
74 72 81 128 118 149 132 77 133 65 134 121 64 61 64 109 133 130 74 140
program n1;
var x,y:real;
begin
writeln('Введите x');
read(x);
if x>=2 then y:=2*x+3 else
y:=(x+1)/(x-2);
writeln('Значение функции равно ',y);
end.
<span>а) E2 -- =($C$3+C$5)/D4</span>
<span>б) E7
-- =($C$3+C$5)/D9</span>
<span>в) C6
-- =($C$3+A$5)/B8</span>
<span>г) F10
- =($C$3+D$5)/E12</span><span> </span>