Var
A:integer;
Begin
Write(A);Read(A);
if (A>9)and(A<100) then Write('А - двузначное')
else Write('А - не двузначное')
End.
Ответ:
program vasa228;
var x,y,z,a:int64;
begin
readln(x,y,z);
a:=0;
while round((2*x+3*y+4*z+a*5)/(x+y+z+a))<4 do a:=a+1;
write(a);
end.
Объяснение:
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (sn,pp,kp):=(0,1,0);
var n:integer;
repeat
Read(n);
if (n<0) and n.IsOdd then sn+=n
else
if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
until n=0;
if sn=0 then begin
Writeln('Нет отрицательных нечетных чисел');
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
else begin
Writeln('Сумма отрицательных нечетных чисел: ',sn);
if kp=0 then Writeln('Нет положительных чисел, кратных 3')
else Writeln('Произведение положительных чисел, кратных 3: ',pp)
end
end.
<u>Пример</u>
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080
<span>Существует несколько типов сетей, и локальная сеть - лишь одна из них. Локальная сеть представляет собой, по сути, сеть, используемую в одном здании или отдельном помещении, таком как квартира, для обеспечения взаимодействия используемых в них компьютеров и программ. Локальные сети, расположенные в разных зданиях, могут быть соединены между собой с помощью спутниковых каналов связи или волоконно-оптических сетей, что позволяет создать глобальную сеть, т.е. сеть, включающую в себя несколько локальных сетей.</span>
A6=341=3*6^2+4*6^1+1*6^0=133
