www.youtube.c om/ wat ch?v = LCKLxn PGtyU
Пробелы убери
1)Иметь поставленную задачи и определить сущности.
2)В поле "Имя поля" вводится имя поля таблицы, являющееся его идентификатором. Рекомендуется формировать имена полей так, чтобы имя было коротким, не содержащим специальных символов (запятых, пробелов и т.д.) и отражающим смысл поля. Необходимо различать идентификатор поля в структуре таблицы и заголовок поля в выходном документе. Во втором случае заголовок поля должен в полной мере отражать смысл поля и обычно задается вручную при форматировании выходного документа.
В поле "Тип данных" выбирается один из типов, показанных в раскрытом списке на рисунке.
Поле "Описание" содержит комментарии к создаваемому полю таблицы. Его заполнение не является обязательным
Var p, q: longint;
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
<span>end.</span>