1) ответ: 12
a 1 2 3
b 1 2 4
2) ответ: i = 30
3) ответ: б), потому что условие проверяется перед началом работы очередного круга цикла.
3 (???) ) ответ: 2 раза. В ходе работы цикла переменная p должна стать равной 0.02
4) ответ: г)
Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен нулю, потом ему прибавляется в значении по единице, пока i не станет равным пяти (0,1,2,3,4,5). Итого к S прибавляется единица шесть раз.
Снизу практически анологично. Это максимально тупо, что просите объяснения к таким простым вопросам.
5) ответ: г)
Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен -1, потом ему прибавляется в значении по единице, пока i не станет равным 2 (-1,0,1,2). Итого к S прибавляется единица 4 раза.
1.
program ll1;
var A: array[1..20] of integer;
i: integer;
begin
Randomize;
for i:=1 to 20 do
begin
A[i]:=random();
if A[i] mod 2 = 0 then writeln(A[i]);
end;
end.
2 .
program ll1;
const N = 20;
var A: array[1..20, 1..20] of integer;
i, j, k: integer;
begin
for i:=1 to N do
for j:=1 to N do
begin
readln(A[i, j]);
if (A[i, j] >= 0) and (A[i, j] < 10) then
k:=k+1;
end;
writeln(k);
end.
3.
program ll1;
var A: array[1..20] of integer;
k, x, y: integer;
begin
Randomize;
readln(x);
readln(y);
for k:=1 to 20 do
begin
A[k]:=random();
if A[k] >= 0 then
A[k]:=x;
else
A[k]:=y;
end;
end.
var str:string;
A,B,i:integer;
begin
write('введите ваш текст');
readln(str);
for i:=1 to length(str) do begin
if (str[i]='А')or (str[i]='а') then a:=a+1;
if (str[i]='Б')or (str[i]='б') then B:=b+1;
end;
if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b);
end.
вариант 3
var str:string;
A,B,i:integer;
begin
write('введите ваш текст');
readln(str);
i:=1;
while i<=length(str) do begin
if (str[i]='А')or (str[i]='а') then delete(str,i,1);
i:=i+1;
end;
write(str);
end.