Задание:
1Каждый солнечный день улитка, сидящая на дереве, поднимается вверх на 2 см, а каждый пасмурный день опускается вниз на 1 см, В начале наблюденияулитка находится в A см от земли на B-метровом дереве. Имеется 30-элементный массив, содержащий сведения о том, был ли соответствующий день наблюдения пасмурным или солнечным. Написать программу, определяющую местоположение улитки к концу 30-го дня наблюдения.2. У вас есть доллары. Вы хотите обменять их на рубли. Есть информация о купли-продажи в банках города. В городе N банков. Составить программу, определяющую, какой банк выбрать, чтобы выгодно обменять доллары на рубли.
Решение:
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 DoBegin If Random (2)=1 Then SunnyDay[i]: =True Else SunnyDay[i]: =False; End; For i: =1 To 30 Do Begin If SunnyDay[i]=True ThenBegin 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, '. Солнечный') ElseWriteLn (i, '. Пасмурный') End; WriteLn ('К концу 30 дня местоположение улитки равно ', a, ' см над землей'); ReadLn; End.
Знаете другой ответ?