var n,k,s:integer;
begin
s:=1;
write ('Введите число: ');
readln(k);
write ('Введите степень: ');
readln(n);
for n:=1 to n do
begin
s:=s*k;
writeln('степень: ',n,' результат: ',s)
end
end.
надо перевести час в минут для удобства
квадратный метр значит метр на метр.
--- если высота 1 метр
n = int(input())
l = int(input())
#вычислить сколько тканей при 1кв. метр
n=n*60 #переводим в минуты
a=n//5
#теперь осталось вычислить с l шириной
print(a*l," при высоте 1 метр")
--- если высота и ширина одно и тоже
n = int(input())
l= int(input())
t = 5 # минут
t=t* (l*l) выисляем сколько надо времени на l квадратный метр
print(n*60//t)# *60 для перевода в минуты
Д) 7 - расскрась например зелёным;
г) 6 - синим
в) 14 - красным;
б) 17 или 8 - оранжевым
а) 11 - жёлтым
{Массив задаётся с помощью генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.}
procedure minZNmas;
<span> var
</span> mas: array[1..15] of integer;
k: integer;
min: integer; s: string;
begin
randomize;
//Заполнение массива случайными величинами
s:='';
for k:=1 to 15 do begin
mas[k]:=random(800);
s:=s+IntToStr(mas[k])+',';
end;
//Поиск минимального значения
min:=mas[k];
for k:=1 to 15 do
if mas[k]<min then
min:=mas[k];
Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);
Application.MessageBox(PChar(IntToStr(min)),'Минимальное значение', MB_ICONINFORMATION);
end;
begin minZNmasend.
Program z1;
var a,b,c,p:double;
begin
readln(a);readln(b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
writeln(p);
readln
end.
