3000м=3км
правило:в одном километре одна тысяча метров.
проверка:3000÷3
<span>n = 1<span># перший подарок
</span>year = 1<span>#дн
</span>suma = 1<span># всі гроші
</span>print("Це твоє ", year, " день народження")
print("\tТепер у мене ", n, " $")
print("За всі дн ти зібрав: ", suma, "$")
print("-" * 50)
while n < 100<span>:
</span> n *= <span>2
</span> year +=<span>1
</span> suma += n
print("Це твоє ",year," день народження")
print("\tТвій подарок ",n," $")
print("-"*50)
print("За всі дн ти зібрав: ",suma, "$")</span>
Паскаль. Sqr это возведение в квадрат, Sqrt это квадратный корень.
var a,b,c:real;
begin
read(a, b, c);
if ((a=sqrt(sqr(b)+sqr(c)))or(b=sqrt(sqr(a)+sqr(c)))or(c=sqrt(sqr(a)+sqr(b))))then
write('Это прямоугольный треугольник')
else
write('Это не прямоугольный треугольник')
<span>end.</span>
Там где написано 1(30на 30) это на двух шкалах ищешь 30 и когда найдешь ставишь цифру 1 и т.д.
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Вводите элементы массива:',n);
a:=a.Select((x,i)->x-i-1).ToArray; a.Println
end.
<u>Пример</u>
n= 7
Вводите элементы массива: -12 4 0 -7 9 18 3
-13 2 -3 -11 4 12 -4