Begin
Writeln('Введите имя игрока ');
var name := ReadString;
Writeln('Введите сумму ');
var sum := ReadInteger;
while True do
begin
Writeln('Введите ставку от ', 1, ' до ', sum);
var stavka := ReadInteger;
if stavka > sum then
writeln('Ставка не может превышать имеющиеся наличные')
else
begin
sum -= stavka;
Writeln('Введите число от 1 до 36');
var number := random(1, 36);
var getnumber := ReadInteger;
if (getnumber < 1) or (getnumber > 36) then
Writeln('Неверное число. Вы потеряли ставку!')
else
if number = getnumber then
begin
Writeln('Вы угадали! Вы получаете 36х ставку');
sum += (36 * stavka);
end
else
Writeln('Не угадали. Вы потеряли ставку!')
end;
writeln;
Writeln('Имя игрока ', name);
Writeln('Текущие деньги ', sum);
writeln;
if (sum <= 0) then
begin
Writeln(name, ' , Вы Проиграли! Надеюсь, Вам повезет в следующий раз');
break;
end;
end;
end.
const n = 10;
var a: array [1..N] of real;
i, k: integer;
s: real;
begin
randomize;
for i:=1 to n do
begin
a[i]:= random(10000, 50000);
write(a[i]:8:2,' ');
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
s:=s/n;
writeln('ср.=',s:8:2);
k:=0;
for i:=1 to n do
if a[i]<s then a[i]:=a[i]*1.1
else if a[i]>s then k:=k+1;
writeln('k=',k);
for i:=1 to n do write(a[i]:8:2,' ');
writeln;
end.
Пример:
34973.00 16546.00 13691.00 41315.00 24650.00 44459.00 18117.00 37906.00 19255.00 17842.00
ср.=26875.40
k=4
34973.00 18200.60 15060.10 41315.00 27115.00 44459.00 19928.70 37906.00 21180.50 19626.20
Человек,любящий свою Землю,страну,родину,город,улицу,дом .....
Патриоты России : Ленин, Троцкий,Нахамкис,Абрам Борисович Гейро, Ленком и Фрунзе
1. Антивирус
2. Интернет
3. Архивация
4. Клавиатура
5. Процессор
По вертикали :ВИРУС
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) + " кг")