CD это где музыка, DVD это где фильмы кино сериалы мультики
Var
m:integer;
Begin
Write('m = ');
ReadLn(m);
if m>= 4 then m:=m*m-8
else m:=m+2;
WriteLn('C = ',m)
End.
Алгоритмы - это проще, чем кажется. Нужно просто выполнять действия в строгом порядке.
i=1 S=0
Если i<=5 то
S = s+i*i
i = i+1
Иначе(если условие если не верно):
Выход из программы(стрелочка никуда не ведёт)
Получается так:
i=1 s =0
Если 1<=5 --> верно тогда
s = 0 +1*1 = 1
i =1+1 = 2
--------------------------------------------
Если 2<=5 --> верно тогда
s = 1 +2*2 = 5
i =2+1 = 3
--------------------------------------------
Если 3<=5 --> верно тогда
s = 5 +3*3 = 5+9 = 14
i =4
--------------------------------------------
Если 4<=5 --> верно тогда
s = 14 +4*4 = 14+16 = 30
i =5
--------------------------------------------
Если 5<=5 --> верно тогда
s = 30 +5*5 = 30+25 = 55
i =6
--------------------------------------------
Если 6<=5 --> не верно тогда
Выход из программы
Ответ: S = 55