Вопрос по информатике:
1)Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел
от A до B включительно.
2)Даны натуральные числа от A до B(A<B). Найти произведение тех из них, которые делятся на 3 и не делятся на 4.
3)Ангелина узнав, что Боря занимается спортом, решила не отставать. Она каждый день делала от 3 до 5 упражнений на икры (вводится во время выполнения программы) и 5 упражнений на пресс. Сколько упражнений она сделала за 5, 10 и 13 дней. (количество упражнений на икры на каждый день вводится отдельно)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.09.2016 05:43
- Информатика
- remove_red_eye 15351
- thumb_up 6
Ответы и объяснения 1
Program task1;
var i, a, b, sum :integer;
begin
readln(a,b); sum:= 0; for i:= a to b do sum:= sum + sqr(i); writeln(sum);
end.
program task2;
var i, a, b, p :integer;
begin
readln(a,b); p:= 1; for i:= a to b do if (i mod 3 = 0) and (i mod 4 0) then p:= p * i; writeln(p);
end.
program task3;
var i, exercise, sum :integer;
begin
for i:= 1 to 13 do begin readln(exercise); sum:= sum + 5 + exercise; if i = 5 then writeln(sum); if i = 10 then writeln(sum); end; writeln(sum);
end.
- 04.09.2016 18:12
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.