М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mariyburova2001
mariyburova2001
27.12.2022 02:20 •  Информатика

Стоимость а метров серой ткани равно b рублей, а стоимость к метров синей ткани равна м рублей. какая ткань дороже и на сколько? (vba)

👇
Открыть все ответы
Ответ:
uliana3murrr
uliana3murrr
27.12.2022

Объяснение:

1. Числа Фибоначчи

function Fibon (n:integer):longint;

var fib_1,fib_2,fib:longint;

i :integer;

begin

if (n<3) then Fibon:=1

else

begin

fib_1 := 1;

fib_2 := 1;

i:=2;

while i<n do

begin

fib:=fib_1+fib_2;

fib_1:=fib_2;

fib_2:=fib;

i:=i+1;

end;

Fibon := fib;

end;

end;

begin

writeln('Fib(',40,') = ',Fibon(40));

readln;

end.        

Числа кратные к

program sumkr;

var

 n,i,r,k: integer;

 sum: longint;

begin

write('Введите число n (1<=n<=4): ');

readln(n);

r:=1;

for i:=1 to n-1 do

r:=r*10;

write('Введите число k: ');

readln(k);

i:=r;

while i <= r*10-1 do

begin

if i mod k=0 then sum:=sum+i;

i:=i+1;

end;

writeln('Сумма чисел от ',r,' до ',r*10-1,' кратных ',k,' = ',sum);

readln;

end.

===

3. НОК

program NOK_a_b;

var a, b, nod, nok,p: integer;

begin

writeln('Введите а и в ');

readln(a, b);

p:=a*b;

while (a <> 0) and (b <> 0) do

if a > b then a := a mod b

else b := b mod a;

nod := a + b;

nok:=p div nod;

writeln('НОК= ', nok);

readln;

end.

4,5(71 оценок)
Ответ:
лиза12322
лиза12322
27.12.2022

20 задание:

n = int(input('Введите n: '))

for i in range(1, n + 1):

   if i % 3  == 0 and i % 5 == 0:

       print('*35*')

   elif i % 3 == 0:

       print('*3*')

   elif i % 5 == 0:

       print('*5*')

   else:

       print(i)

21 задание:

strN = ''

temp = ''

print('Вводите числа, каждое с новой строчки, в конце напишите stop.')

while temp != 'stop':

   temp = input()

   if temp != 'stop': strN += temp + ' '

n = [int(item) for item in strN.split()]

for i in n:

   if i > 100:

       break;

   elif i >= 10:

       print(i)

22 задание:

a = ''

temp = ''

print('Пишите числа, в конце напишите stop.')

while temp != 'stop':

   temp = input()

   if temp != 'stop' and int(temp) % 7 == 0 and int(temp) % 5 == 0:

       a += temp + ' '

a = a.split()

if len(a) != 0:

   print('Числа кратные 7 и 5:')

   for i in a: print(i)

else: print('Нет чисел кратных 7 и 5.')

4,4(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ