Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Решите пожалуйста 3 вариант)

Ответ оставил Гость

//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.