Вариант ответ: 2
______________________________
Var k,i:integer;
begin
write ('Введите количество повторений: ');
readln (k);
for i:=1 to k do
writeln ('ПРИВЕТ!!!')
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Сумма = ',a.Sum,', произведение = ',
a.Aggregate(BigInteger(1),(p,q)->p*q),
', среднее = ',a.Average)
end.
<u>Пример</u>
n= 17
49 -31 46 61 -87 18 -64 -48 66 64 -37 56 43 -52 13 28 -78
Сумма = 47, произведение = -11393046129075182950686916608, среднее = 2.76470588235294
Органы чувств ..........................!!!!!!!!
Pascal
var
x,a : integer; //(тип данных может быть real, longint...)
begin
readln (a);
x := 12 * a * 2 + 7 * a -16;
writeln ('x(',a,')=',x);
end.