//task 1
var k,m:integer;
begin
readln(k,m);
writeln('Сумма',k+m,' Произведение ',k*m,' Квадрат разности ',sqr(k-m));
end.
//task 2
var i, s:integer;
p:real;
begin
p:=1;
for i:=60 to 240 do
if i mod 3=0 then begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма ',s,' Произведение ',p);
end.
//task 3
var x1,y1,x2,y2:real;
begin
//ввод координат точек
writeln('Введите X1,Y1,X2,Y2');
readln(x1,y1,x2,y2);
//выясняем в какой четверти находятся концы отрезка
if (x1>0)and(y1>0)and(x2>0)and(y2>0) then whiteln('1 четверть');
if (x1<0)and(y1>0)and(x2<0)and(y2>0) then whiteln('2 четверть');
if (x1<0)and(y1<0)and(x2<0)and(y2<0) then whiteln('3 четверть');
if (x1>0)and(y1<0)and(x2>0)and(y2<0) then whiteln('4 четверть');
end.
1) получения из числа 3 числа 16 - 12211
3 - 1 = 2
2 * 3 = 6
6 * 3 = 18
18 - 1 = 17
17 - 1 = 16
2) получения из числа 1 числа 25 - 22211
1 * 3 = 3
3 * 3 = 9
9 * 3 = 27
27 - 1 = 26
26 - 1 = 25
Просто забей в интернете вопросы или найди что то похожие