257(8)=2*8^2+5*8^1+7*8^0=128+45+7=178
Const
var s:integer;
procedure ploshad poverhnosti (s:integer);
var h,l,sbok:integer;
begin
writeln (' vedite l i h');
readln (l,h);
sbok:=h*(l^2);
end;
begin
s:=(ploshad poverhnosti)+2*(l^2);
writeln(s,' ');
readln;
end.
Но это очень не точно.
{1}
var a,b,n:integer; c:real;
begin
read(n);
for a := 1 to n-1 do
for b := a to n-1 do
begin
c := sqrt(sqr(a) + sqr(b));
if c < n then
if c = trunc(c) then
writeln(a:3,' ',b:3,' ',c:3);
end;
end.
{2}
var n,i:integer; s,x:real;
begin
read(n);
s := 0;
for i := 1 to n do
begin
read(x);
s := s + x;
end;
writeln(s/n);
end.
1.Кто-то (пускай будет Петя) спросил домашние задание у другого человека ( пускай будет у Васи), Вася ему ответил и получается, что Вася передал информацию,Петя получил и использовал что бы решить домашку.
2.Живое существо своими органами чувств (глаз, ухо, кожа, язык и т.д.) воспринимает информацию из внешнего мира, перерабатывает её в определенную последовательность нервных импульсов, передает импульсы по нервным волокнам, хранит в памяти в виде состояния нейронных структур мозга, воспроизводит в виде звуковых сигналов, движений и т.п., использует в процессе своей жизнедеятельности.
#include <iostream>#include <cmath>#include <cstdio>using namespace std;int n;int main () { cin >>n;cout <<"The next number for the number " << n <<" is " <<n+1 << '\n';cout <<"The previous number for the number " << n <<" is " <<n-1;return 0;}
