В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Arinacoco
Arinacoco
13.06.2020 01:53 •  Информатика

Индира Эмиль и Лена нашли в земле странный сосуд .Каждый высказал о нём по два предполодения: Индира:это сосуд скифский и изготовлен в 5 веке.
Эмиль:этот сосуд согдийский и изготовлен в 3 веке.
Лена:это сосуд не скифский и изготовлен в 4 веке.
Учитель истории сказал ребятам,что каждый из них прав только в одном из двух предположений.
Где и в каком веке изготовлен сосуд?​

Показать ответ
Ответ:
FrozeFre
FrozeFre
05.11.2022 00:43

C++

Объяснение:

#include <iostream>

using namespace std;

#include <string>

//На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём.Найти среднее арифметическое всех двузначных чисел которые делятся на 7. С++

int main()

{

int number;

int count = 0;

float summ = 0;

int otvet;

cin >> number;

while (number != 0) {

 cin >> number;

 if ((number >= 10 && number <= 99) && (number % 7 == 0)) {

  summ += number;

  count++;

 }

 if (number == 0) {

  otvet = summ / count;

  cout << "Otvet: " << otvet << endl;

  break;

 }

}

}

0,0(0 оценок)
Ответ:
shtoshpulodov
shtoshpulodov
22.08.2020 08:58
Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота