<span>Program flint</span>
<span>var </span>
<span>S, i: integer; </span>
<span>begin </span>
<span>writeln('Введите S'); </span>
<span>readln(S); </span>
<span>for i:=1 to 10 do </span>
<span>s:=s*1,03/0,98; </span>
<span>writeln('Реальная сумма через 10 лет: '); </span>
<span>writeln(S); </span>
<span>readln(); </span>
<span>end.</span>
Если без форм (<FORM>), то так:
<HTML>
<HEAD>
</HEAD>
<BODY>
<H1>Площадь трапеции</H1>
<SCRIPT>
var a = prompt('Укажите длину','');
var b = prompt('Укажите ширину','');
var h = prompt('Укажите высоту','');
alert ('Площадь трапеции будет равна '+(+a + +b)/2*h);
</SCRIPT>
</BODY>
</HTML>
При попадании трояна в какое либо устройство может появится реклама в том числе чаще в сего и в порнографическом виде,заражение данный или утечка информации фотографий, важных документов. Может попасть при скачевании каких либо файлов или попадание через USB. Шнур, флешку и т.д.
program zadacha1;
var x, y, k, h:Real;
Begin
write('x=');Read(x);
h:=exp(3*ln(x));
k:=exp(5*ln(x));
y:=x-h/3+k/5;
Writeln('y=',y);
end.
Program zadacha2;
var x, y, h:Real;
Begin
write('x=');Read(x);
Write('y=');Read(x);
h:=sqr(1/2)-cos(x)+sin(2*x*y);
writeln('h=',h);
end.
Program zadacha4;
var x, y, h:real;
begin
write('x=');Read(x);
h:=abs(exp(4*ln(x))-exp(5*ln(x)));
y:=x- 10*sin(x)+h;
write ('y=',y);
end.