Var n: integer;
var heigth: real;
begin
heigth := 120;
writeln('n = ');
readln(n);
for var i := 1 to n do
heigth := heigth * 1.02;
writeln('Heigth = ',heigth);
end.
var n: integer;
var heigth: real;
begin
heigth := 120;
writeln('n = ');
readln(n);
repeat
begin
heigth := heigth * 1.02;
n := n - 1
end
until n = 0;
writeln('Heigth = ',heigth);
end.
В целом - тенденция - неутешительная. Видно, что дети стали гораздо больше болеть по практически всем пунктам. Скорее всего это связано с нынешним образом жизни детей.
Дети сидят дома за компьютерами, мышцы атрофируются. Свежего воздуха в городах нет, поэтому заболевания органов дыхания прогрессируют. Компьютерный образ жизни способствует также развитию заболеваний пищеварительной системы. Все данные диаграммы говорят о том, что, по всей видимости, тенденция не только сохранится, а даже усугубится. За здоровье наших детей несет ответственность не только медицина, но и родители.
{тоже как вариант}
const
v: array [0..9] of integer = (1,0,0,0,1,0,1,0,2,1);
var
x,n: integer;
begin
read(x);
n := 0;
repeat
n := n + v[x mod 10];
x := x div 10;
until x = 0;
write(n)
end.
Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.
Пример:
s = 5020
Кругов: 6 и ещё метров: 220
Переменная b примет результирующее значение 2