д8 запишите значение переменной s, полученное в результате работы следующей программы. текст программы приведён на пяти языках программирования. бейсикpythondim k, s as integer s = 0 for k = 9 to 13 s = s + 9 next k print s s = 0for k in range(9,14): s = s + 9print (s)паскальалгоритмический языкvar s,k: integer; begin s := 0; for k := 9 to 13 do s := s + 9; writeln(s); end. алг нач цел s, k s := 0 нц для k от 9 до 13 s := s + 9 кц вывод s кон с++#include using namespace std; int main() { int s = 0; for (int k = 9; k <= 13; k++) s += 9; cout << s; return 0; } ответ: 3задания д8 определите, что будет напечатано в результате работы следующей программы. текст программы приведён на пяти языках программирования. бейсикpythondim k, s as integer s = 2 for k = 1 to 5 s = s * 2 next k print s s = 2for k in range(1, 6): s = s * 2print (s)паскальалгоритмический языкvar s,k: integer; begin s := 2; for k := 1 to 5 do s := s * 2; writeln(s); end. алг нач цел s, k s := 2 нц для k от 1 до 5 s := s * 2 кц вывод s кон с++#include using namespace std; int main() { int s = 2; for (int k = 1; k <= 5; k++) s = s * 2; cout << s; return 0; } ответ:
ответ:
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.
объяснение:
ответ:
объяснение:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
const n=23; m=40; //n-ряды, m-места
var
a: array[1..n,1..m] of integer; //зрительный зал
i,j,k: integer;
begin
randomize;
writeln('зрительный зал: ');
write('м/р');
for i: =1 to m do write(i: 3);
writeln;
for i: =1 to n do begin
write(i: 3);
for j: =1 to m do begin
a[i,j]: =ord(random(10)> 0); write(a[i,j]: 3); //read(a[i,j]); я ввожу гадалкой, т.к. руками вбивать 920 цифирь не входит в мое понятие героизма
end;
writeln;
end;
repeat
write('в каком ряду смотреть свободные места? ');
readln(i);
until (i> 0) and (i
k: =0;
for j: =1 to m do k: =k+ord(a[i,j]=0); //cчитаем свободные места
write('в ряду ',i);
if k> 0 then writeln(' есть свободные места в количестве ',k,' шт.') else
writeln(' свободных мест нет');
end.