1. Сколько символов «#» будет напечатано в результате выполнения цикла? for i in range(1, 7): print('#')
2. Сколько символов «*» будет напечатано в результате выполнения цикла?
for i in range(10, 15): print('*')
3. Определите значение переменной s после выполнения операторов:
4. Определите значение переменной s после выполнения операторов:
5.
print(s)
i = i + 5
Напишите программу, используя цикл for или while, которая после
выполнения напечатает в столбик 17 слов «Курганник»
sum_pol:=0;sum_otr:=0;for i:=1 to n do beginif a[i]>0 then sum_pol:=sum_pol+a[i];end;writeln();writeln('udvoennaya summa polojit. chisel = ', sum_pol*2);
for i:=1 to n do beginif (a[i]<0) and (i mod 2 <> 0) then sum_otr:=sum_otr+a[i];end;
writeln('summa otricat. i nechetn. chisel = ', sum_otr);end.
ответ:
uses crt;
var a: array[1..20,1..20] of real;
n,m,i,j: integer;
s: real;
begin
clrscr; randomize;
write('введите кол-во строк: '); readln(n);
write('введите кол-во столбцов: '); readln(m);
for i: =1 to n do
begin
for j: =1 to m do
begin
a[i,j]: =random(100)/10;
write(a[i,j]: 4: 1);
end;
writeln;
end;
for i: =1 to n do
begin
s: =0;
for j: =1 to m do
s: =s+a[i,j];
writeln('сумма ',i,'-ой строки: ',s: 0: 1);
end;
for j: =1 to m do
begin
s: =0;
for i: =1 to n do
s: =s+a[i,j];
writeln('сумма ',j,'-ого столбца: ',s: 0: 1);
end;
for j: =1 to m do
begin
s: =0;
if j mod 2 = 0 then
begin
for i: =1 to n do
s: =s+a[i,j];
writeln('среднее арифметическое ',j,'-ого столбца: ',s/m: 0: 1);
end;
end;
readln;
end.
объяснение: