profile
Опубликовано 4 года назад по предмету Информатика от DinaRainbow

1Каждый солнечный день улитка, сидящая на дереве, поднимается вверх на 2 см, а каждый пасмурный день опускается вниз на 1 см, В начале наблюдения улитка находится в A см от земли на B-метровом дереве. Имеется 30-элементный массив, содержащий сведения о том, был ли соответствующий день наблюдения пасмурным или солнечным. Написать программу, определяющую местоположение улитки к концу 30-го дня наблюдения.
2.
У вас есть доллары. Вы хотите обменять их на рубли. Есть информация о купли-продажи в банках города. В городе N банков. Составить программу, определяющую, какой банк выбрать, чтобы выгодно обменять доллары на рубли.

  1. Ответ
    Ответ дан preceptor
    Program Ulitka;
    Var SunnyDay: Array [1..30] Of Boolean;
    a, b, c, i: Integer;
    Begin
    WriteLn('a = ');
    ReadLn(a);
    WriteLn('b = ');
    ReadLn(b);
    b := b * 100;
    Randomize;
    For i := 1 To 30 Do
    Begin      
    If Random(2) = 1 Then
    SunnyDay[i] := True
    Else
    SunnyDay[i] := False;
    End;
    For i := 1 To 30 Do
    Begin  
    If SunnyDay[i] = True Then
    Begin    
    a := a + 2;    
    If a > b Then    
    a := b;  
    End  
    Else  
    Begin   
    a := a - 1;    
    If a < 0 Then    
    a := 0;  
    End;  
    End;
    WriteLn('Дни месяца были таковы:');
    For i := 1 To 30 Do Begin
    If SunnyDay[i] = True Then
    WriteLn(i, '. Солнечный')
    Else
    WriteLn(i, '. Пасмурный')
    End;
    WriteLn('К концу 30 дня местоположение улитки равно ', a, ' см над землей');
    ReadLn;
    End.