№6
program m;
var
a, max, pupils, i: integer;
ifNoanswer: boolean;
begin
ifNoanswer:=false;
a:=0;
№7 в комментах как только напишу
max:=0;
readln(pupils);
for i:=1 to pupils do
begin
readln(a);
if a>max then
max:=a
else if a=0 then
ifNoanswer:=true;
end;
writeln(max);
if ifNoanswer=false then
writeln('NO')
else
writeln('YES');
end.
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
var
a:integer;
begin
read(a);
writeln('Произведение десятков: ',(a mod 10)*(a div 10 mod 10)*(a div 100)*1000);
writeln('Произведение единиц: ',(a mod 10)*(a div 10 mod 10)*(a div 100));
readln;
readln;
end.
Пример:
123
Произведение десятков: 6000
Произведение единиц: 6
Социальные сети-это всемирная паутина.По ней можно общаться, заводить много друзей,играть в игры,делиться информацией и многое другое . Но в социальной сети нельзя проводить много времени , так как можно испортить зрение или забыть о реальном времени .
Значащие нули - нули не находящиеся на 1 позиции числа . Пусть n кол-во значащих нулей :
289 (10) = <span>100100001 (2) , тогда n = 6
309 (10) = </span><span>100110101 (2) , тогда n = 4
</span>154 (10) = <span>10011010 (2) , тогда n = 4
</span>763 (10) = <span>1011111011 (2) , тогда n = 2</span><span>
</span>
Var a:real;k2,k5:integer;
begin
k2:=0; k5:=0;
read(a);
while a<>0 do begin
if a=2 then k2:=k2+1
else if a=5 then k5:=k5+1;
read(a) end;
write(k2,' ',k5)
<span>end.</span>