Var i:integer;s:real;
begin
s:=0;
for i:=25 to 1255 do
begin
s:=s+power(i,3);
end;
writeln (s);
end.
WWW - World Wide Web - Всемирная паутина или Паутина (Web - веб), не путать с Интернет. Эти понятия действительно часто путают, потому что они неразрывно связаны между собой с точки зрения обычного пользователя
В то время как Интернет - это именно связь сама по себе, ее физические составляющие, обеспечение связи, то Всемирная паутина - это есть наполнение/содержание этой связи.
Всемирная паутина - это система документообмена. В качестве документов обычно выступают гипертекстовые документы так же называемые веб-страницами сгруппированные по веб-сайтам, которые находятся на веб-серверах. Для просмотра веб-страниц используется приложение веб-браузер. Для обмена используется протокол HTTP (англ. HyperText Transfer Protocol — «протокол передачи гипертекста»)
Назначение? Обмен цифровой информацией наверно)
Для простого понимания:
- соц.сети, форумы, новостные сайты - это все WWW.
- Icq, Skype, Viber, Whatsapp, Telegram, почтовые клиенты и т.п. используют другие протоколы и по сути не являются частью Паутины, хотя используют Интернет
- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.
Var
mas:array [1..10] of integer;
i:integer;
begin
writeln('Введите числа массива');
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
if mas[i]<0 then
mas[i]:=0;
for i:=1 to 10 do
write(mas[i],' ');
end.