Определите назначение сайта и государство, которому принадлежит этот сайт Www.admin.tomsk.ru
Www.kremlin.ru
Www.akorda.kz
Www.icetrade.by
Pressa.de
Ответы на вопрос:
begin
var quantity := 0;
var amount := 0;
var A := readinteger();
var B := readinteger();
for var i := A to B do
begin
if (i mod 3 = 0) and (i mod 10 <> 0) then
begin
inc(amount, i);
inc(quantity);
end;
end;
writeln(amount / quantity:0:2);
end.
Объяснение:
begin // Начало программы
var quantity := 0; // Объявление переменной, хранящей количество элементов, подходящих под условие
var amount := 0; // Объявление переменной, хранящей сумму элементов, подходящих под условие
var A := readinteger(); // Считывание числа А с клавиатуры
var B := readinteger(); // Считывание числа В с клавиатуры
for var i := A to B do // Идём от А до В
begin // Начало цикла
if (i mod 3 = 0) and (i mod 10 <> 0) then // Если значение переменной i делится на 3 без остатка И значение переменной i не заканчивается на 0
begin // Начало условного оператора
inc(amount, i); // Прибавляем к переменной amount значение переменной i
inc(quantity); // Прибавляем к переменной quantity единицу
end; // Конец условного оператора
end; // Конец цикла
writeln(amount / quantity:0:2); // Вывод среднего арифметического с точностью до 2 знаков после запятой
end. // Конец программы
Популярно: Информатика
-
LentaKuim08.03.2020 01:11
-
gabdrahmanovaafyun04.04.2022 07:24
-
gotov234443333230.04.2022 05:22
-
Елена202801.01.2021 19:40
-
krisa2003p08dzp27.08.2020 16:10
-
8алина8203.07.2020 07:30
-
Ellionora122720.06.2023 11:47
-
Покемончик1234614.04.2022 00:17
-
vladkoblov0215.09.2022 13:31
-
ЛяЛлля17.01.2023 14:38