var
i:integer;
begin
for i:=60 to 70 do write (chr(i),' ');
readln;
end.
5(2x-3) = 6*15
10x-15=90
10x = 90+15
x = 10,5
1. Толщина - изменяет толщину линий для заданного инструмента.
2. Фигуры - содержит готовые фигуры для вставки.
//1
//PascalABC.Net 3.2
begin
write ('Стоимость покупки: ',
readreal('Цена 1 кг конфет(руб) : ')*readreal('Кол-во кг: ') +
readreal('Цена 1 кг печенья(руб): ')*readreal('Кол-во кг: ') +
readreal('Цена 1 кг яблок(руб): ')*readreal('Кол-во кг: '))
end.
//2
//MV C++ 10
#include <iostream>
using namespace std;
int main ()
{
int a, d, n;
cin >>a>>d>>n;
cout<<(2*a+(n-1)*d)*n/2;
return 0;
}
//3
#Python 3
a = int(input())
a2 = a*a
a4 = a2*a2
a8 = a4*a4
a16 = a8*a8
a20 = a16*a4
print(a4 )
print(a20)
Var i:Integer;
A:array[1..10] of Integer ;
Begin
For i:=1 to 10 do begin
A[i]:=random(26)-5;
Write(A[i], ' ') ;end;
Writeln;
For i:=1 to 10 do begin
If A[i]<0 then A[i]:=abs(A[i])
Else A[i]:=-A[i];
Write(A[i], ' ') end;
End.