Скопировать: Ctrl+C Вставить Ctrl+V
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;
<span>End.</span>
На рисунке – схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И, К, Л. По каждой дороге можно двигаться только в одном на
Zhenya2017
А = 1
В = А = 1
Б = А + В = 2
Г = А + В = 2
Д = А + Г = 3
Е = Б = 2
Ж = Г + Д = 5
З = Б + В + Г + Е + Ж = 12
И = З = 12
К = З = 12
Л = З + И + К = 12 + 12 + 12 = 36
Ответ: 36
1.Память человека отличается тем,что память одного человека он помнит свои воспоминании их никто кроме него не может знать а память человечества это например несколько людей были вместе на собрании у них будут одинаковые воспоминания которые они могут обсудить между собой 2. тем что память человечества это всего лишь информация, а память человека способ доступа к информации 3. у оперативной пвмяти достоинство высокая скорость чтения и записи. Недостатки- меньший объём,чем у винчестера и то, что при включении или перезагрузки компьютера память стирается. У долговременной памяти, то есть у жесткого диска, дискет,CD-ROM наоборот. Недостаток-Маленькая скорость,по сравнению с оперативной памятью. Достоинства-большой объём и то,что память сохраняетя при выключении.
Язык на котором реализовать требуется?