var x:integer;
begin
writeln('Введите значение x: ');
readln(x);
if x<3 then
writeln('y = ',sqr(x))
else
if x>3 then
writeln('y = ',sqrt(x))
else
if x=3 then
writeln('y = ',2*x);
end.
Инструмент для обработки данных
инструмент для хранения информации
средство передачи данных
Программа написана на языке Pascal
var
x: integer;
begin
readln(x);
if x mod 5 = 0 then
writeln(x * x)
else
writeln(x * x * x)
end.
Var t:integer;var a,b,s:real;beginprintln('Введите количество тетрадей и обложек');readln(t);println('Введите цену тетрадей');readln(a);println('Введите цену обложек');readln(b);
s:=t*a+t*b;print(s);end.
X=4;
(1*X+3)+(3*X+1)=1*X²+1*X
X²-3*X-4=0
X=4
13₄+31₄=110₄