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

Напишите программу, которая ищет среди целых положительных чисел, принадлежащих числовому отрезку числа. Найдите все числа, которые заканчиваются на цифру 7. Выведите их в порядке возрастания, слева от каждого числа выведите его номер по порядку.
Sample Input:

1371085
1371134
Sample Output:

1 1371107

👇
Ответ:

a=int(input())

b=int(input())

c=b+1

k=0

p=0

for i in range (a,c):

(tab)for j in range (2,i):

(tab)(tab)if i%j==0:

(tab)(tab)(tab)if i==j:

(tab)(tab)(tab)(tab)break

(tab)(tab)(tab)else:

(tab)(tab)(tab)(tab)k+=1

(tab)(tab)(tab)(tab)break

(tab)if k==0 and i!=1 and i%10==7:

(tab)(tab)p+=1

(tab)(tab)print (p, i)

(tab)k=0

Объяснение:

Привет, Андрей Ну как ты там?

4,4(19 оценок)
Открыть все ответы
Ответ:
palos3323
palos3323
20.12.2021

#include <iostream>

using namespace std;

class Set {

   int N, counter = 0;

   float A, B;

public:

   Set(int N, float A, float B) {

       this->N = N;

       this->A = A;

       this->B = B;

   }

   void Count() {

       for (int i = 0; i < N; i++) {

           float x;

           cin >> x;

           if (A <= x && x <= B)

               counter++;

       }

       cout << "Count = " << counter << endl;

   }

};

signed main()

{

   setlocale(LC_ALL, "Rus");

   int N;

   float A, B;

   cout << "Введите число элементов: (N) ";

   cin >> N;

   cout << "\nВведите числа A и B: ";

   cin >> A >> B;

   Set m(N, A, B);

   m.Count();

   return 0;

}

4,5(94 оценок)
Ответ:
dkogotyzeva
dkogotyzeva
20.12.2021

var a,b,c,s,t:real;

function f(a,b,c:real):real; begin

 Result:= (2*a-b-cos(c/180*pi))/(3.5-abs(c));

end;

BEGIN

 readln(s,t);

 writeln( f(t,-3*s,2.5-t)+f(5.2,3*t,s-t) );

END.

Объяснение:

рисунок блочной схемы не осилю

а хотя почему бы и не сделать зарисовку

за соответствие стандартам рисования этого рисунка блоками именуемой схемой не отвечаю но он делался по примерам из интернета. Язык изложения учитывался только рисованной форме блоков и была сделана подача русским языком взамен паскалного языка с маленькими видоизменениями слов действий внутри текста на слова действия из русского языка то есть попростому перевод был сделан. Надеюсь это зайдёт.


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