Помогите составить программу, которая посчитает сумму натуральных чисел из промежутка от 1 до 100, которые делятся на 17 и сумма цифр, которых не превышает 7. В Паскале.
Новые вопросы в Информатика
Информатика,помогите пожалуйста
язык pythonНапиши программу подсчёта зарплаты тренераТренер спортивного комплекса может работать на полную занятость или гибкое количество часов.Ба…зовая оплата тренера с полной занятостью 20 000, но есть система повышающих коэффициентов:1) Если опыт работы от 3 лет, то зарплата увеличивается в 1,5 раза.2) Если опыт от 5 лет, то зарплата увеличивается в 2 раза.3) Если опыт от 7 лет, то зарплата увеличивается в 3 раза.При почасовой оплате стоимость одного часа (800) умножается на количество отработанных часов.Итог:Фамилия тренера:>>>ГригорьеваЗанятость(1 - полная, 2 - почасовая):>>> 1Стаж в годах:>>>12Григорьева - 60000
Один равлик лізе на палицю висотою А см зі швидкістю 2 см / год., а другий - на іншу палицю висотою К см. зі швидкістю 3 см/год. Хто з них швидше залі…зе на вершечок? В ПАСКАЛЕЕЕЕЕ
вивести ціле число у горизонтальній рамці
Прямоугольник из звёздочек по периметру пайтон
Вивести ціле число у горизонтальній рамці PascalABC
Найдите среднее арифметическое чисел 2368, 6С16 и 1110102. Ответ запишите в десятичной системе счисления.
сколько чисел из интервала от 777777 до 888888 включительно делятся без остатка и на сумму своих различных уифр, и на их количеств
как сразу добавить несколько inline кнопок, чтобы не писать отдельную строку кода для каждой кнопки и при этом чтобы эти кнопки отображались по трём в…каждом ряду
сделайте этот массив двумерным и с отдельной функцией ввода-вывода (С++)#includeusing namespace std;int main(int argc, const char * argv[]) {…float *ptarray = new float [10];for (int i = 0; i < 10; i++)for (int j = 0; j < 10; j++)ptarray[i] = rand () % 80 + 1;for (int i = 0; i < 10; i++)for (int j = 0; j < 10; j++)cout << ptarray [i] << " ";delete [] ptarray;cin.get();return 0;}
1 votes
Thanks 1
Answers & Comments
Verified answer
{сумма натуральных чисел из промежутка от 1 до 100,которые делятся на 17 и сумма цифр, которых не
превышает 7. Можно перебором}
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 17=0) and (i div 10 + i mod 10<7) then
s:=s+i;
writeln(s);
end.
{результат 51}
{
Можно оптимизировать
в цикле изменив for i:=1 to 100 do
на
for i:=17 to 100 do}
{2 вариантө оптимальнее - перебираем только числа кратные 17]
var i,s:integer;
begin
s:=0; i:=17;
while i<=100 do
begin
if (i div 10 + i mod 10<7) then
s:=s+i;
i:=i+17;
end;
writeln(s);
end.