Без рандома:
program p5_4;
var
P,S,S1:real; i,k:integer;
b:array[1..20] of integer;
z:array[1..10] of integer;
begin
writeln(' z: ');
for k:=1 to 10 do
begin
Readln(z[k]);
write(z[k]:4);
end;
writeln;
writeln(' b: ');
for i:=1 to 20 do
begin
Readln(b[i]);
write(b[i]:4);
end;
P:=1;
S1:=0;
for i:=1 to 20 do
S1:=2*(S1+cos(sqr(b[i])));
for k:=1 to 10 do
P:=P*(z[k]);
S:=S1+P;
writeln(' S=',S:2:5);
<span>end.</span>
Javascript:var c,m,t1,t2,Q;function p(){c=promtp("c:"),m=prompt("m:"),t1=prompt("t1:"),t2=prompt("t2:");if(isNaN(c)||isNaN(m)||isNaN(t1)||isNaN(t2))alert("ПНХ")else Q=c*m*(t2-t1);}function f(Q,cl)document.write("<div style='background-color:"+cl+";text-decoration:underline;'>"+Q+"</div>");f(Q,"blue");document.write("<input type=button onClick='p();f(Q,"blue");' /><input type=button onClick='f(Q,"green");' />");
PROGRAM ThreeNumbers;
VAR
numberOne : DOUBLE;
numberTwo : DOUBLE;
numberThree : DOUBLE;
sum : DOUBLE;
product : DOUBLE;
average : DOUBLE;
BEGIN
WriteLn('Введите три числа:');
Write('Число 1 -->');
ReadLn(numberOne);
Write('Число 2 -->');
ReadLn(numberTwo);
Write('Число 3 -->');
ReadLn(numberThree);
sum := numberOne + numberTwo + numberThree;
product := numberOne * numberTwo * numberThree;
average := (numberOne + numberTwo + numberThree) / 3.0;
WriteLn('Сумма = ', sum:6:1);
WriteLn('Произведение = ', product:6:1);
WriteLn('Среднее = ', average:6:1);
END.
RT <span>Файл RT является одним из файлов категории Интернет-файлы. Его полное название это RealText Streaming Text File. Формат файла RT создан RealNetworks. Если вы попали к нам, наверное Вы ищете программы, которые помогут Вам работать с этим конкретным расширением. На следующих страницах вы найдете списки программ, поддерживающих файл RT сортированные по операционных системах. Если наша база данных содержит информацию о конвертировании файла RT, Вы обязательно найдете его здесь.</span>
Var m1, V1: integer; {первое тело}
m2, V2: integer; {второе тело}
begin
Write('Введите массу первого тела в граммах'); ReadLn(m1);
Write('Введите объем первого тела в кубических сантиметрах'); ReadLn(V2);
Write('Введите массу второго тела в граммах'); ReadLn(m2);
Write('Введите объем второго тела в кубических сантиметрах'); ReadLn(V2);
if (m1/V1)>(m2/V2) then WriteLn ('ПЛАВАЕТ')
else WriteLn('ТОНЕТ');
ReadLn;
end.