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. // Конец программы
Шартты форматтау түрлері
Ойлан
Күнделікті керекті әрі маңызды ақпараттарды әртүрлі дереккөздерден пайдалану үшін ерекшелеудің қандай түрлерін қолданасыңдар?
Кестедегі санды мәндерді (ең үлкен, ең кіші мәнін, ең көп және ең аз кездесетінін) көзмөлшерімен қалай ажыратады?
Жаңа білім
Excel программасында кестелерді шартты түрде форматтауға болады. Форматтаудың бұл әдісі деректерді талдауда, пішіндеуде өте қолайлы әдіс. Шартты форматтау – ұяшықтардағы деректерді белгілі шарттар бойынша форматтау. Қабылдауға оңтайлы болу үшін санды деректерді гистограмма, таңбалар және әртүрлі түстер арқылы беру тиімді. Бұл әдіс арқылы проблемалық жерлерге бірден визуалды түрде баға беруге болады. Шартты форматтауды іске қосу үшін «Бас» (Главная) құралдар тақтасында орналасқан «Мәнерлер» (Стили) бөліміндегі «Шартты форматтау (Условное форматирование) пәрмендерін (команда) орындасақ, «Шартты форматтау» диалогтік терезесі ашылады. «Шартты форматтау терезесінің» құрылғысымен!
Var A:ARRAY[1..10] of real; s:real; i:integer;
Begin S:=0; begin For i:=1 to 10 do Writeln('введіть число A',i',A[i]:2:0); Readln(a[i]); If S<A[i] then S:=A[i]; end; writeln('Найбыльший елемент масиву',S); end.
Это пример на Паскале. Считает max число