Люди я вообще не понимаю мне надо это сделать. Создайте сайт на произвольную тему, состоящий из пяти - id1166463220220912 от алёчек 12.09.2022 15:40

Question

Информатика: Люди я вообще не понимаю мне надо это сделать. Создайте сайт на произвольную тему, состоящий из пяти страниц (ки- но, музыка, домашние животные, знаки зодиака в вашей семье, любой другой вариант лишь бы от души). Обязательные требования: 1. Прислать все файлы без исключения (архивом или как отдельные файлы, но все) 2. В процессе работы не менять расположение файлов, иначе ссылки работать не будут. 3. Сайт должен содержать такие элементы как: 1) Фон страницы 2) Заголовок страницы 3) Текстовый контент

алёчек · Accepted Answer

Program P1;

Uses Crt; {можно и не использовать, без оной clrscr - видаст ошибку, что нет такого}

Var a,p: Real;
n,i: Integer;

Begin
ClrScr; {просто чтобы очистить экран можно и не использовать}
Write('Type a: '); Read(a);
Write('Type n: '); Read(n);
for i:=1 to n do
begin
p:=p+(a*(a-i*n)*(a-n*n));
{не совсем понятны три точки в условии}
end;
Writeln('p=', p:3:3); {количество знаков после запятой и общее}
Readkey; {или можно использовать Readln;}
End.

MOGZ ответил