В начале программы нужно написать
uses Robot;
mas = float(input('Введите вашу массу в кг: ')) #ввод массы
mas_on_Moon = mas * 0.165 #умножение на 16.5 процента
print("Ваш вес на Луне составляет " + str(mas_on_Moon) + " кг")
for i in range(15):
mas += 1 # увеличивание массы на 1
mas_on_Moon = mas * 0.165
print(str(i+1) + ") Масса на Земле = " + str(mas) + " кг | Масса на Луне = " + str(mas_on_Moon) + " кг")
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(15).println;
a.Sorted.println.SortedDescending.println;
end.
Тестовое решение:
17 75 17 71 20 86 10 45 10 78 99 11 16 33 20
10 10 11 16 17 17 20 20 33 45 71 75 78 86 99
99 86 78 75 71 45 33 20 20 17 17 16 11 10 10
<span>Цикл с предусловием </span>
<span><span>Цикл с постусловием</span></span>
<span><span><span>Цикл со счётчиком</span></span></span>
Const n=10;
var a:array[1..n] of integer;
i,s,min:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
s:=0; min:=a[1];
for i:=1 to n do
begin
s:=s+a[i];
if a[i]<min then min:=a[i];
end;
writeln('s = ',s,' min = ',min);
end.
Пример:
Массив A:
18 22 5 50 18 23 48 2 22 26
s = 234 min = 2