WWW расшифровывается как World Wide Web и означает Всемирная паутина. Эта сеть соединяет многие компьютеры между собой, подобно паутине.
WWW - это служба Интернет, которая содержит миллионы страниц информации
Var
x,y: integer;
begin
read(x);
y := x * x + 1;
write(y);
end.
DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
s = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) MOD 2 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT "s = "; s
Var pass,s:string; k:integer;
begin
pass:='12345';
k:=0;
repeat
writeln('Введите пароль:');
readln(s);
k:=k+1;
until (s=pass)or(k=3);
if s=pass
then writeln('Можно приступать к работе')
else writeln('Вызываю охрану');
end.
Пример:
Введите пароль:
1
Введите пароль:
12345
Можно приступать к работе
Это медсестра.В повер поинт попробуйте нарисовать,любая версия вот пример.