Свой выбор. Задание No 5 ( )
Комета Бармалея. Как известно, комета Бармалея видна с Земли каждые С лет. Любопытно, что это
происходит в годы, кратные С, т.е. C, 2xC, 3xC и т.д. Не каждому суждено увидеть эту комету хотя бы
однажды в жизни. Впрочем, находятся счастливые долгожители, заставшие её прилёт даже несколько
раз.
Считается, что впервые эту комету увидел и документировал знаменитый средневековый астроном
Бармалео Бармалей. В честь него она и получила своё имя. Говорят, за свою долгую жизнь он успел
сделать много великих открытий в самых разных областях науки. Однако недавно историки
засомневались, правда ли все открытия, которые ему приписываются, Бармалео Бармалей сделал сам.
В частности, они заинтересовались, сколько раз за свою жизнь учёный мог видеть комету, названную
В его честь.
Бармалео Бармалей родился 1 января в год А и умер 31 декабря в год В. Сколько раз за его жизнь
Комета была видна с Земли? Мы считаем, что он мог видеть комету, даже будучи младенцем или
глубоким стариком, т.е. если она прилетала в год А или В.
Программа получает на вход три целых числа A, B и C (1 <A <B <2x10°, 1хC <2x10°), и должна
вывести одно целое число количество раз, которое комета была видна между годами А и В
Включительно.
Вывод | Примечание
2 Комета пролетала около Земли в 185 и 190 годах. Бармалео Бармалей застал
Ввод
185
190
5
оба раза.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

бессараб1

20.02.2023 02:30

Синтез логических выражений...

stepanoganezov

27.11.2020 05:15

Какое из неравенств выполняется для чисел А =4408, В =1000100112 и С =20345?...

DanilSv040

14.10.2022 00:38

Кто является контент-провайдером страницы физического лица в социальной сети «ВК»?( по возможности подтвердите обоснование ))...

kate833

20.04.2023 00:53

Информатика Выполните ручную прокрутку алгоритма при a = 3: Вход: натуральное число a. Шаг 1. s := 0; b := 1 Шаг 2. Если b a, перейти к шагу 6. Шаг 3. s := s + b Шаг 4. b :=...

theknow14

29.03.2021 04:29

Запиши число 13464 в развёрнутом виде, начиная со старшего разряда...

Ромашка100500

24.11.2022 04:53

нужно фото сделанного и всё)...

oiopiha

08.10.2020 05:18

5. Дано масив з елементів. Порахувати скільки в ньому однакових елементів. Якщо усі елементи різні вивести у повідомлення «NO». Вхідні дані: Вихідні дані: 5 2 2 -5 -54-3 6....

Aisuluuuuuuu

31.05.2021 21:24

Определи заполнения массива. randomize;fori:=1to10doa[i]:=random(57);1)с оператора присваивания (случайными числами)2)нет верного ответа3)ввод каждого значения с клавиатуры...

lynnikova05

10.04.2020 02:04

Перечислите Примеры использования информационных технологий в реинжиринге БП...

gabdrahmanovaafyun

06.05.2023 10:00

Растрове зображення це- до ть ...

Ответ:

djonli1

30.03.2023 12:15

Type
mass = array[1..10, 1..10] of real;

var
a, b, c: mass;
n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
i, j: integer;
begin
for i := 1 to n do
 for j := 1 to m do
 begin
 writeln('a[', i, ',', j, ']: ');
 readln(a[i, j])
 end
end;

procedure MatrB(var b: mass);
var
i, j: integer;
begin
for i := 1 to n1 do
 for j := 1 to m1 do
 begin
 writeln('b[', i, ',', j, ']: ');
 readln(b[i, j])
 end
end;

procedure Sum(a, b: mass; var c: mass);
var
i, j: integer;
begin
for i := 1 to n do
 for j := 1 to m do
 c[i, j] := a[i, j] + b[i, j];
end;

begin
writeln('Введите n,m матрицы A');
readln(n, m);
MatrA(a);
writeln('Введите n,m матрицы B');
readln(n1, m1);
MatrB(b);
if (n1 <> n) and (m1 <> m) then
 writeln('Матрицы сложить нельзя')
else begin
 Sum(a, b, c);
 writeln('A+B');
 for i := 1 to n do
 begin
 for j := 1 to m do
 write(c[i, j]:1:3, ' ');
 writeln
 end
end;
readln;
end.

0,0(0 оценок)

Ответ:

korolevdanil99

31.08.2020 11:02

Вот программа : program xxx;
program xxx;   var i, k, d, e, s : integer;begin  k:=0; for i:= 10 to 99 do   begin      d:= i div 10;      e:= i mod 10;      s:=d + e;      if i mod s = 0 then k:=k+1   end;   write ('кол-во чисел которые делятся на сумму своих цифр=', k);   readlnend.
Найдите количество двузначных чисел, которые делятся на сумму своих цифр.

Найдите количество двузначных чисел, которые делятся на сумму своих цифр.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку