Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
<span>end.
</span>
1(a)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
writeln(c);
readln;
d:=a-b;
writeln(d);
readln;
end.
b)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
c)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа'); //здесь вводим два числа
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
2.
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите три числа');
readln(a,b,c);
d:=a*b*c;
writeln(d);
readln;
end.
3.
Program Treugol;
var a,b,c,d:real;
begin
writeln('введите два числа');
readln(a,b);
c:=2*(a+b);
d:=a*b;
writeln(c,d);
readln;
end.
4.
Program Goda;
var R:real;
begin
write('введите R');
readln(R);
<span><span>d:=R*356;
</span><span>c:=d*24;
</span><span>m:=c*60;
</span><span>s:=m*60;
</span></span>writeln(d);
writeln(c);
writeln(m);
writeln(s);
readln;
end.
Надеюсь на лучший ответ и на спасибо:)
На алгоритмическом.
a=массив(10..50);
max:=a[1]'
min:=a[1];
n_min:=0;
n_max:=0;
k:=0;
i:=10;
пока i<=50 делай
нц
если a[i]>max то
нц
max:=a[i];
n_max:=i;
кц
если a[i]<min то
нц
min:=a[i];
n_min:=i;
кц
если (i mod 2)==0 то
sum:=sum+a[i];
k:=k+1;
кц
srednee_znachenie:=sum/k;
//========================
var
a:array(10..50) of integer;
max,min,n_min,n_max,k,i,sum:integer;
sr:float;
begin
max:=a[1];
min:=a[1];
for i:=10 to 50 do
begin
if a[i]>max then
begin
max:=a[i];
n_max:=i;
end;
if a[i]<min then
begin
min:=a[i]
n_min:=i;
end;
if ((i mod 2)=0) then
begin
k:=k+1;
sum:=a[i]+sum;
end;
end;
end;
sr:=sum/k;
end.
Отделяем по 3 двоичных цифры справа (триады), и пишем 8-ричный код:
1 000 001(2)=101(8);
100 000 000(2) =200(8);
11 111 111(2) =377(8);
1 100(2) =14(8).