45 раз
Он будет прибавлять единицу к n 45 раз.
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=2)
then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 3
y = 2
Да
100*40=4000
Т.к. 1 символ весит 1 байт, информационный объем книги равен 4000
4000\1024=3,90кб
Var n,v,k:integer;
begin
writeln('Введите объём аквариума(в литрах)');
readln(v);
writeln('Введите количество рыбок');
readln(n);
if v>=(3*n) then
begin
k:= (v div 3) -n;
writeln('Аквариум не является перенаселённым,в нём можно ещё разместить ',k,' р.');
end
else begin
k:=n- (v div 3);
writeln('Аквариум является перенаселённым,необходимо поместить ',k,' р. в другой аквариум');
end;
end.<span>
</span>
Первая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
a:=a + (n mod 10);
n:=n div 10;
end;
end.
Вторая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
if n mod 10>5 then
begin
a:=a + (n mod 10);
end;
n:=n div 10;
end;
end.