Составить приложение на языке pascal.определить в какую четверть координатной плоскости попала точка с координатами (x, y переменной n присвоить номер четверти. если точка попала в начало координат, то n=0. если точкапопала на ось x или y, то напечатать сообщение об этом.

 

 

uses  crt;

var  x,y: real;

n: integer;

begin

clrscr;

writeln('введите координаты точки: ');

readln(x,y);

if(x=0)and(y< > 0) then write('точка попала на ось y')

else if (x< > 0)and(y=0) then write('точка попала на ось х')

else

begin

  else  if  (x> 0)and(y> 0)then  n: =1

  else  if  (x< 0)and(y> 0)  then  n: =2   

  else  if  (x< 0)and(y< 0)  then  n: =3     

  else  if(x> 0)and(y< 0)  then  n: =4

  write('n=',n);  

  end;  

  readln  end.

Program zadacha3; var v, vo,a ,b, t, c, h: integer; begin   writeln('моя программа вычисляет скорость при равноускоренном движении');   writeln('введите начальную скорость');   readln(a);   writeln('введите ускорение');   readln(a);   writeln('введите время');   readln(t);   writeln('введите шаг');   readln(h);   for b: =t to c do     begin       t: =t+h;       v: =vo+a*t;     end;   writeln('скорость равна v: = ',v); end.после эндом на закрытии цикла не стояло точки с запятой, и где у тебя  написано в третей строчке снизу  7v, что это я так и не понял? я убрал оттуда семёрку, если не так то поменяй, я в формулу не вдавался.и у тебя ответ в цикле стоит я не знаю так должно быть или нет, обрати внимание на это, в своём варианте я переставил ответ на после цикла

#! /usr/bin/env python # -*- coding: utf-8 -*- # vim: fileencoding=utf-8 print("введите длины сторон треугольника: ") a = float(input("a = ")) b = float(input("b = ")) c = float(input("c = "))  if a + b > c and a + c > b and b + c > a:     print("yes") else:       print("no") if a ! = b and a ! = c and b ! = c:       print("произвольный") elif a == b == c:       print("равносторонний") else:       print("равнобедренный")