Program pryam;
Var y1, y2, y3, x1, x2 : real;
Begin
writeln ('Введите координату (у) верхней точки прямой');
readln (y1);
writeln ('Введите координату (у) нижней точки прямой');
readln (y2);
writeln ('Введите координату (х) точек-концов прямой');
readln (x1);
writeln ('Введите координату (у) точки, принадлежность к прямой которой нужно определить');
readln (y3);
writeln ('Введите координату (х) точки, принадлежность к прямой которой нужно определить');
readln (x2);
if (y3<=y1) and (y3>=y2) and (x2=x1) then writeln (' принадлежит ')
else writeln (' не принадлежит ');
readln;
End.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text.RegularExpressions;
namespace Rextester
{
public class Program
{
public static void Main(string[] args)
{
int sum = 0;
for (int i = 100; i <= 1001; i++)
{
Console.WriteLine(i);
sum += i;
}
Console.WriteLine("Sum = {0}", sum);
}
}
}