Var a, b, c, S: real
begin
read (a, b, c);
S := (sqrt(a) + sqrt(b) + sqrt(c))/3;
writeln (S);
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(6, -10, 10);
a.Println;
end.
<h2>-1 -7 0 9 -5 1</h2>
На клавиатуре Shift и Alt одновремменно.
Const n=10;
var a:array[1..n] of integer;
k,i,j:integer;
begin
for i:=1 to n do read(a[i]);
k:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]=a[j] then k:=k+1;
writeln('k = ',k);
end.
Пример:
12 56 38 12 85 12 60 45 38 15
<span>k = 4</span>
Т. к. а не может быть одновременно быть больше 1000 и меньше 100, никогда не выйдет 'Ошибка'