Блок-схема (с циклом) - в прилагаемом файле.
Программа (с циклом):
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>
a = str(input("введите строку - "))
b = list(a)
c = len(b)
if c % 2 == 1:
a1 = c // 2
print(b[a1])
else:
a1 = c // 2 - 1
a2 = c // 2
print(str(b[a1]) + ' , ' + str(b[a2]))
1)Алгоритм решения задачи: <span>Программа должна запрашивать у пользователя следующую информацию:диаметр бака;высота бака;расход краски (площадь поверхности, которую можно покрасить одной банкой краски).В результате программа должна выдавать количество требуемых банок. При получении дробного числа округление должно всегда происходить в большую сторону.<span>Площадь крыши бака (круга) вычисляется по формуле <span>p * d2 /4</span> (где p – число пи, d - диаметр).
Площадь боковой поверхности цилиндра: p * d * h (где h – высота).
</span></span><span>Программа на языке Паскаль:
<span>const pi = 3.14;
var
d, h, b: real;
top, wall, q: real;
q_int: integer;
begin
write('Диаметр: ');
readln(d);
write('Высота: ');
readln(h);
write('Окрашиваемая площадь одной банкой: ');
readln(b);
top := pi * sqr(d) / 4.0;
wall := pi * d * h;
q := (top + wall) / b;
q_int := trunc(q) + 1;
write('Количество банок: ', q_int);
readln
end.
</span></span>
Var a,b,c,d:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if (a>b)and(a<c)or(a>c)and(a<b)
then begin d:=b; b:=c; c:=d; end
else if (b>a)and(b<c)or(b>c)and(b<a)
then begin d:=a; a:=c; c:=d; end
else begin d:=a; a:=b; b:=d; end;
writeln('a = ',a,' b = ',b,' c = ',c);
end.
Пример:
a, b, c:
8 5 2
a = 2 b = 5 c = 8