Блок-схема (с циклом) - в прилагаемом файле.
Программа (с циклом):
var n,m,m1,s,i:integer;
begin
readln(n,m);
m1:=m*60;
s:=m1;
for i:=2 to n do
begin
m1:=m1+10;
s:=s+m1
end;
writeln('s = ',s div 60,' час ',s mod 60,' мин');
end.
Пример:
5 2
<span>s = 11 час 40 мин</span>
Ответ:
Объяснение:
print("Введите пять слов через пробел")
inp = input()
words = inp.split()
print("You have entered: {0}, {1}, {2}, {3}, {4}".format(words[0], words[1], words[2], words[3], words[4]))
Var k,n,i,j:integer;
a:array[1..100,1..100] of integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('A[',i,',',j,']=');
readln(a[i,j]);
end; k:=1;
for i:=1 to n do
for j:=1 to n do
if j mod 2=0 then k:=k*a[i,j];
writeln(k);
<span>end.</span>
<em>program jfe3;</em>
<em>const n=10; {Это будет кол-во элементов массива}</em>
<em>var a:array [1..n] of integer; i,s:integer;</em>
<em>begin</em>
<em>for i:=1 to n do begin</em>
<em> a[i]:=random(100); {элемент выбирается случайно от 0 до 100}</em>
<em> s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}</em>
<em> end;</em>
<em>for i:=1 to n do</em>
<em>writeln(a[i],' '); {показать сам массив}</em>
<em>writeln(s); {показать сумму}</em>
<em>readln; {чтобы окно сразу не закрывалось}</em>
<em>end.</em>
<em> </em>