Begin
var a := ReadInteger('a =');
PrintLn(
Range(1, ReadInteger('n ='))
.Where(x -> (x mod 5 = 0) and (x < a))
.Aggregate((s, x)-> s + x)
);
end.
Begin
writeln(350/2/3*60,' секунд');
<span>end.</span>
Ответ:
смотри приложенные файлы
Объяснение:
Обычно расчёт оклада, налога, премии делается с округлением до копеек (это сделано во втором файле).
Если вам достаточно простых формул без округления, то они в первом файле (итоговая сумма в этих двух вариантах формул естественно может слегка не совпадать).
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,50); a.Println;
var p:=a.IndexMin;
Writeln('Номер минимального элемента ',p+1,
', его значение ',a[p]);
p:=a.IndexMax;
Writeln('Номер максимального элемента ',p+1,
', его значение ',a[p]);
end.
<u>Пример</u>
40 4 40 46 45 -42 -27 30 40 -13
Номер минимального элемента 6, его значение -42
Номер максимального элемента 4, его значение 46
Неправильно записанные: а, б.
Объяснение:
а: У закрывающего тега нет атрибутов
б: Тега size вообще не существует, а если это атрибут он не может писаться отдельно от открывающего тега... А вообще еще по правилам html 5 у само закрывающихся тегах на конце пишется /: <br /> <hr />
...
Все остальные верны, так как:
в: Абзац, выравненный по центру
г: Закрывающий тег <h1>
д: <font> - Контейнер для изменения характеристик текста в нем. В данном случае в нем будет текст со шрифтом Arial
...
Если не сложно нажми "Спасибо" ;)