Смотри, нас учили так: берешь число, и делишь столбиком(так легче и понятнее) на степень, в которую нужно перевести.. а потом собираешь число в обратном порядке
Ответ: 2 единицы
var
s,i,b,a:integer;
begin
Writeln('Введите два целых числа через пробел');
readln(a,b);
s:=0;
for i:=1 to b do s:=s+a;
writeln(s);
<span>end.</span>
164)
var a: array [1..10] of real;
i: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
a[i] := sqr(a[i]);
writeln('[', i, '] => ', a[i]);
end;
<span>end.
169)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (A[i] < 0) then s := s + a[i];
end;
writeln(s);
<span>end.
172)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (A[i] <> 0) then s := s + 1;
end;
writeln(s);
<span>end.
174)
var a: array [1..10] of real;
i, s: integer;
b: real;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
b := b + a[i];
end;
b := b / 10;
for i := 1 to 10 do
begin
if (a[i] > b) then s := s + 1;
end;
writeln(s);
<span>end.
179)
var a: array [1..10] of real;
i, s: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(100) - 50;
writeln('[', i, '] => ', a[i]);
end;
writeln('------------');
for i := 1 to 10 do
begin
if (i mod 2 = 0) then a[i] := sqr(a[i]);
writeln('[', i, '] => ', a[i]);
end;
<span>end.
Вроде так =)</span></span></span></span></span>
Program E2_1;
Сколько раз будет выполнен оператор M := a[k]
при заданном массиве (3, 8, 7, 9, 4, 10, 2, 12)?
Ответ: 4 раза, т.к. условие
if M < a[k]
выполнится при a[k]=8, 9, 10, 12
------
Program E2_2;
в записи оператора s := s + a[k] была допущена ошибка - вместо него был записан оператор s := s + 1. Каким оказался ответ после исполнения неверной программы, если в качестве элементов массива были введены числа (-1, 3, -2, 4, -5, 6, -7, 8)?
Ответ: s = 4, т.к. условие
if a[k] < 0
выполнится при a[k]=-1, -2, -5, -7
---------
Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально
A[3]:=5;
A[4]:=6;
A[3]:=A[4];
A[4]:=A[3]?
Ответ:
A[3] = 6;
A[4] = 6;
-----------
В представленном фрагменте программы значения одномерного массива задаются с помощью оператора цикла. Чему будет равно A[5]?
For i := 1 To 5 Do Begin
A[2*i - 1] := i;
A[2*i] := i*i
End.
Элементу A[5] присвоит значение строка
A[2*i - 1] := i;
i при этом будет равно 3.
Ответ: A[5] = 3
Лат. carne vale, «прощай, мясо» либо лат. car val — «корабль шутов»