Console.Write("Введите значения\nВершины А - x1 = ");
double x1 = double.Parse(Console.ReadLine());
Console.Write("y1 = ");
double y1 = double.Parse(Console.ReadLine());
Console.Write("Вершины B - x2 = ");
double x2 = double.Parse(Console.ReadLine());
Console.Write("y2 = ");
double y2 = double.Parse(Console.ReadLine());
Console.Write("Вершины C - x3 = ");
double x3 = double.Parse(Console.ReadLine());
Console.Write("y3 = ");
double y3 = double.Parse(Console.ReadLine());
double S, P;
S = 0.5 * Math.Abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1));
Console.WriteLine("Площадь треугольника равна: " + S);
a) (z >= -7) and (z <= 10);
б) (x mod 2 = 0);
в) (x <> 78);
г) (x mod 2 <> 0);
Ошибки в программе:
1) Переменная а объявлена как integer, т.е предназначена для хранения целочисленных значений. Но при этом в программе ей присваивают значение 4.13, которое не является целым числом.
Правильно будет объявить переменную а типа real;
2) После ключевого слова begin никогда не ставится точка с запятой;
3) Перед else не ставится точка с запятой;
4) После заключительного end требуется ставить точку.
Правильный вариант:
var
a:real;
begin
a:=4.13;
if (a+1 > 7) then write('a = ', a*3) else
write('a = ', a*6);
end.
![Запишите на языке Паскаль следующие условия. Только условия! а) z ϵ [-7; 10]; б) x четное число; в)](/tpl/images/1775/9368/19ac4.jpg)
var
a, max, i: integer;
begin
repeat
readln(a);
if(a > max) and (a mod 2 = 0) then max := a;
inc(i);
until(i = 6);
writeln('Макс. четное число: ', max);
end.