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

Указать последовательность чисел for i in range (1,9)? ​

👇
Ответ:
5312макс1245
5312макс1245
15.04.2020

i=1

print(i)

i=2

print(i)

i=3

print(i)

i=4

print(i)

print('Цикл for закончен')

i принимает последовательно значения 1, 2,3,4 (1-я строка) .

2-я строка печатает эти значения.

Т.е. можно заменить на такой код:


Указать последовательность чисел for i in range (1,9)? ​
4,6(68 оценок)
Ответ:
ryckovan3
ryckovan3
15.04.2020

i примет следующие значения :  1, 2, 3, 4, 5, 6, 7, 8

4,8(89 оценок)
Открыть все ответы
Ответ:
Nik228tyto4ki
Nik228tyto4ki
15.04.2020
Насколько я понял ваше условие, вот код (немножко на скорую руку, но рабочий!):

#include <cstdio>
#include <iostream>
using namespace std;
int main(){
int n, kolvo=0;//заводим переменную n и переменную kolvo, отвечающую за количество купюр
cout << "Enter n:\n"; cin >> n;//сканируем эту переменную
if (n > 64){
kolvo += n / 64;
n %= 64;
}
if (n > 32){
kolvo += n / 32;
n %= 32;
}
if (n > 16){
kolvo += n / 16;
n %= 16;
}
if (n > 8){
kolvo += n / 8;
n %= 8;
}
if(n > 4){
kolvo += n / 4;
n %= 4;
}
if (n > 2){
kolvo += 1;
n %= 2;
}
if (n == 1){
kolvo += 1;
}
cout <<"There's the number:\n"<< kolvo;
return 0;
}

P.S.:думаю понятно, почему последние два if' а отличаются, но если остались вопросы, то пишите!
4,7(11 оценок)
Ответ:
clon4
clon4
15.04.2020
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
4,6(100 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ