Ответ учителя по предмету Информатика
Const
N = 30;
Var
Days:array[1..N] of boolean;
B,A,i:integer;
Begin
B:=random(15,100);
A:=random(60,100);
WriteLn(‘Высота дерева: ‘,B/10,’ м’);
WriteLn(‘Высота подъёма улитки: ‘,A,’ см’);
Write(‘Погода: ‘);
For i:= 1 to N do
Begin
if random(2) = 1 then Days[i]:=true
else Days[i]:=false;
if Days[i] then Write(‘солнечно ‘)
else Write(‘пасмурно ‘)
End;
WriteLn;
For i:= 1 to N do
Begin
if Days[i] then
Begin
if A+3<=B then A:=A+3
else A:=B;
End
else
Begin
if A-2>=0 then A:=A-2
else A:=0;
End
End;
Write(‘Высота поъёма улитки: ‘,A/10,’ м’)
End.
Похожие вопросы от пользователей
Плииз помогите!
какой отрезок называется диаметром окружности?
во сколько раз диаметр длинее радиуса?
есть ли окружности два радиуса различной длины?
а два диаметра различной длины?
что называют кругом?
что такое дуга окружности?
Вставь глаголы данные ниже в правильной форме
Liebe Mama,wie geht es dir? ______du viel arbeiten? Wo___ dein Schiff? _____du im Meer Delfine sehen? Was macht dear Papagei Silvester? welche Sprache _____er heute?
Глаголы: sprechen sein konnen mussen
Present Simple
Timur: What (0) are you doing (you/do) Lena?
Lena: I (1) ________________ (watch) the basketball final with Samal.
Timur: (2) ________________ (the school team/win)?
Lena: Yes, it is. Max (3) ____________ (play) really well.
Timur: (4) ________________ (Alex/sit) with you?
Lena: No, he (5) _________. He (6) ________ (buy) some water at the café. Why?
Timur: I’m at his cousins’ match. They (7) ____________ (lose).
Lena: Oh no! I’ll tell him.