Практическое занятие 11 Циклы со счетчиком

Задача 1 Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?

Решение задачи 1 Var S, x: real; k: integer; Begin X:=10; S:=0; For k:=1 to 7 do begin S:=S+x; X:=x+x*0.1; End; Writeln('S=', S:7:3); End.

Задача 2 Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12,..., 24 часа.

Решение задачи 2 Var K, n, s: integer; Begin S:=1; For k:=1 to 8 do begin n:=k*3; S:=s*2; Writeln(n,' ч.', 'кол-во амеб -',s); end; End.

Задача 3 У гусей и кроликов вместе 64 лапы. Сколько может быть кроликов и гусей (указать все сочетания)?

Решение задачи 3 Var i, j: integer; Begin For i:=1 to 64 do For j:=1 to 64 do If 4*i+2*j=64 then Writeln('кроликов-', i, ' гусей-',j) ; end.

Задача 4 Написать программу вычисления суммы натуральных чисел от 1 до N.

Решение задачи 4 Var S, n, i: integer; Begin Writeln(' Введите N '); Read(n); S:=0; For i:=1 to N do S:=S+i; Writeln(' S= ', S); End.

Задача 5 Написать программу поиска двухзначных чисел, обладающих следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова данное число.

Решение задачи 5 Var K, s: integer; Begin For k:=10 to 99 do begin S:= (k mod 10)+(k div 10); If S+sqr(S)=k then writeln(k); End; End.

Домашнее задание Дано натуральное число n. Найти сумму n 2 + (n +1) 2 +…+(2*n) 2.