Program npow2;
var
n, i, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
s := s + i * i;
writeln(s);
end.
Var n,i:integer;
a:array[1..1024] of integer;
begin
randomize;
write('N=');
readln(n);
for i:=1 to n do
a[i]:=random(2*n+1)-n;
write('V pramom poradke - ');
for i:=1 to n do
write(a[i],' ');
writeln;
write('V obratnom poradke - ');
for i:=n downto 1 do
write(a[i],' ');
writeln;
<span>end.</span>
Ответ:
1. 5
2. 11
3. 13
Объяснение:
1. (7 + 2) * b + 2 + 2 + 2 = 51
9 * b = 51 - 6
9b = 45
b = 5
2. (46 + 3 + 3 + 3) / b + 3 = 8
55 / b = 5
b = 11
3. (48 + 4) / b + 4 + 4 + 4 = 16
52 / b = 4
b = 13
Точно не уверен но вроде так:
var
s:real;
begin
writeln ('Введите сумму покупки: ');
readln(s);
if s>1000 then
begin
writeln('Сумма покупки с учётом скидки: ',s*0.9:0:2,' руб.');
end
else
writeln('Сумма покупки: ',s:0:2,' руб.');
end.