Я так понял тебе нужно на паскале, тогда держи:
program dataScience;var x,y,z, sum: integer;beginsum:=0;read(x, y, z); if x=>0 then//проверка на положительность x if y=>0 then//проверка на положительность y if z=>0 then//проверка на положительность z sum:=(x+y+z)/3;//счёт среднего writeln(sum);//вывод среднего арефметического end.
1) Информационные процессы в природе - обмен информацией в случае опасности между животными (например, дельфинами); передача информации в генетическом коде - передача наследственных признаков.
2) В обществе - библиотека - хранение информации, накопленной предыдущими поколениями; передача информации в новостях; обмен информацией - при общении друзей.
3) В технике - передача информации по сетям (Интернет), хранение информации на жестком диске компьютера (винчестере).
Program z2; Var v,s,a,v0:real;Begin Write('Vo ='); readln(v0); Write('a ='); readln(a); Write('S ='); readln(s); v:=sqrt(2*a*s+v0*v0); Write('V =',v);End.
Сфотай получше!!!!!!!!!!!!!!!!