ДЗ для ВЕРЫ ВИКТОРОВНЫ:
Объяснение:
Var I, N, m: integer;
{Выводит таблицу квадратов до N числа}
Begin
Readln(N); //Что вводим в этой строке и зачем? Как можно подсказать пользователю, что ввести?
{Вводим до какого числа нам нужно получить квадрат; Подсказать можно через WRITELN}
Writeln('Таблица квадратов чисел от 1 до N'); //Сколько раз выполняется этот оператор?
{Один раз}
For i:=1 to N do //Сколько раз выполнится цикл?
{N раз}
Begin //Зачем снова писать операторные скобки?
{Затем, что это цикл, который всегда обособляется и отделяет от остальных операторов}
m:=i*I;
Writeln(I,' ',m); //Как по-другому оставить пробелы между столбиками?
{Можно сделать так - Writeln(I:3,m:16);}
End;
End.
Задача 1
var
x1, y1, x2, y2, l: real;
begin
Writeln('Введите значения (x1,y1,x2,y2)');
Read(x1, y1, x2, y2);
l := Sqrt(Sqr(x1 - x2) + Sqr(y1 - y2));
Writeln('Расстояние: ', l:3:2);
end.
Тестовое решение:
Введите значения (x1,y1,x2,y2)
2 3 4 5
Расстояние: 2.83
Задача 2
var
a, b, c, p, s: real;
begin
Writeln('Введите ABC');
Read(a, b, c);
P := (a + b + c)/2;
S := Sqrt(p * (p - a) * (p - b) * (p - c));
Writeln('Площадь по Герону: ', S:3:2);
end.
Тестовое решение:
Введите ABC
2 3 4
Площадь по Герону: 2.90