Язык:
1) Python
2) Pascal ABC
Объяснение:
1)
x = int(input())
y= 2 * (x ** 3) + 3 * (x ** 2) - 4
print(y)
2)
var x, y: integer;
Begin
readln(x);
y := 2 * (x * x * x) + 3 * (x * x) - 4;
writeln(y);
End.
//PascalABC.NET 3.2 сборка 1318
Var
s:array[1..60] of char;
i,j,len:integer;
begin
len:=60;
for i:=1 to 60 do
read(s[i]);
i:=1;
while(i<=len-3) do
begin
if (s[i]='m') and (s[i+1]='a') and (s[i+2]='m') and (s[i+3]='a') then
begin
s[i]:='d';
s[i+1]:='e';
s[i+2]:='d';
for j:=i+3 to len-1 do
s[j]:=s[j+1];
dec(len);
end;
inc(i);
end;
for i:=1 to len do
write(s[i]);
end.
<h2>1.</h2>
program raf105;
var a:array[1..3,1..3] of integer;
i,j,x:integer;
begin
writeln('Введите 9 чисел по очереди');
x:= 1;
for i:=1 to 3 do
for j:=1 to 3 do
begin
readln(a[i,j]);
if (a[i,j] < 0) and (a[i,j] > -14)
then x *= a[i,j];
end;
writeln('Вывод: ',x);
end.
<h2>2.</h2>
program raf105;
var a:array[1..10] of integer;
n,i,x:integer;
begin
writeln('Вводите 10 чисел по очереди: ');
x:= 1;
for i:=1 to 10 do
begin
readln(a[i]);
if ((a[i] mod 5) = 0) and (a[i] <> 0)
then x *= a[i];
end;
writeln('Введите число от 1 до 10');
readln(n);
a[n] := x;
writeln(n,'-й элемент массива заменён на число ',x);
for i:=1 to 10 do
writeln(a[i]);
end.
<em><u>Язык PascalABC</u></em>
Var
A, B, C, D: integer;
f1, f2: Text;
begin
Assign(f1, 'input.txt');
Reset(f1);
Assign(f2, 'output.txt');
Rewrite(f2);
while not Eof(f1) do
begin
Readln(f1, A, B, C, D);
if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
else writeln(f2,'NO')
end;
Close(f1);
Close(f2)
end.
Корпус , жёсткий диск . Всё!!!
