Program gt;
var n,q,s,k:integer;
begin
read(n);
s:=0;
k:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
s:=s+q;
k:=k+1;
end;
writeln(s,' ',k);
end.
Program zadanie;
var i,n,a:integer;
begin
readln(n);
for i:=1 to n do
begin
if(i mod 2)=1 then a:=a + 1;
end;
writeln(a);
readln;
<span>end.
если я правильно понял то так,если нет,пиши переделаю!</span>
1. 115
2.10111101
3.86
4.57
5.115
Сообщи если есть ошибка
1 байт = 8 бит
Переводим биты в байты: 200/8=25 байт в секунду
25*10=250 байт
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var (a,b,c):=ReadInteger3('a, b, c ->');
var x:= min(a,min(b,c));
var y:= max(a,max(b,c));
var z:= 0;
if (a <> x)and(a <> y)
then z:= a;
if (b <> x)and(b <> y)
then z:= b;
if (c <> x)and(c <> y)
then z:= c;
Writeln(x, ' ', z, ' ', y);
end.