var a: array [1..5] of integer; s,i: integer; begin for i : = 1 to 5 do begin writeln('a[',i,']='); read(a[i]); s: =s + a[i] end; writeln('s=',s); end.
Ответ дал: Гость
периметр равен сумме всех сторон
Ответ дал: Гость
пусть р - это вероятность события при котором достается белый карандаш
Популярные вопросы