profile
Опубликовано 5 лет назад по предмету Информатика от Лия97

Ребята, помогите, пожалуйста)
1) Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал норму на 10 % от нормы предыдущего дня.Определить через сколько дней его норма превысит 20 км.
2) Винни Пух ходит на дни рождения. На двух первых днях рождениях у Пяточка и Кролика он съел по 100 грамм пищи. На каждом следующем дне рождения Винни Пух съедает столько же пищи, что и на двух предыдущих. Составить таблицу, определяющую сколько кг пищи Винни Пух съест на 15 дне рождения.

  1. Ответ
    Ответ дан Аленусик
    1. uses crt;
    var k:integer;
    a:real;
    begin
    clrscr;
    a:=10;
    k:=1;
    while a<=20 do
          begin
          a:=a+a*10/100;
          k:=k+1;
          end;
    writeln ('Норма превысит 20 км на ',k,' день');
    end.
         
    2.
    uses crt;
    var k:integer;
    m:array [1..15] of real;
    begin
    clrscr;
    m[1]:=0.1;
    m[2]:=0.1;
    for k:=3 to 15 do
        begin
        m[k]:=m[k-1]+m[k-2];
        end;
    for k:=1 to 15 do
    writeln (k:3 ,' день',m[k]:8:1,' кг');
    end.

    1. Ответ
      Ответ дан Лия97
      Спасибо огромное!!!))
Самые новые вопросы