Если запускать будете в браузере, создайте файл с расширением html и таким кодом:
<em><html></em>
<em><script></em>
var a=prompt("Input first number:");
var b=prompt("Input second number:");
alert(a*b);
<em></script></em>
<span><em></html></em></span>
Интернет – это очень полезная вещь, но с другой стороны - слишком вредная. Полезность его заключается в том, что можно найти, практически, любую интересующую вас информацию и можно общаться в социальных сетях с людьми на больших расстояниях. А вред интернета заключается, в первую очередь, в зависимости от него, которая превращается в болезнь.
Хоть и плюсов много, но минусов больше, например, таких как: лжесайты, на которых распространяют компьютерные вирусы, снимают большие суммы денег с мобильного телефона, если, например, ты ввел номер своего мобильного телефона для обычной регистрации, а попался к мошенникам; реклама на сайтах, с которых тебе нужна информация для работы или учебы, а перед глазами все время выскакивает и мелькает бесконечная «гадость» и к тому же, с помощью этих реклам так же распространяют вирусы.
В интернете много всего нецензурного, порнографии и мошенничества. В первую очередь, от всего вышеперечисленного нужно уберегать детей, устанавливая на компьютеры фильтры безопасности и хорошие антивирусы. Для наилучшей защиты правительству нужно создавать различные организации, занимающиеся охраной интернета и которые помогут обезопасить информационное пространство интернета, тем самым защитить детей и их детство.
отмены ввода числа, его части и общего сброса
. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.
Ответ:
program Calc;
var
i, n, m: Integer;
s: Double;
begin
Write ('Количество членов ряда = ');
ReadLn (m);
s := 0.5;
n := 1;
for i := 2 to m do begin
s := s + n / (i * 2);
n := -n;
end;
WriteLn ('S = ', s :20 :20);
ReadLn;
end.
