1) Что выведет программа при вызове F(5)?
procedure F(n: integer);
begin
write(n+1);
if n >= 3 then begin
F(n - 3);
F(n - 2); end
end;
2) Что выведет программа при вызове F(5)?
procedure F(n: integer);
begin
if n >= 3 then begin
write(n+1);
F(n - 1);
F(n - 2)
End
3) Определите, что выведет на экран программа при вызове F(6).
procedure f(n:integer);
begin
write(1);
if 1 < n then begin
write( 2 );
f(n div 4);
f(n - 3);
end;
end;
4)Определите, что выведет на экран программа при вызове F(6).
procedure f(n:integer);
begin
write( n+3 );
if 1 < n then begin
f( n div 4 );
f( n – 3 );
write(n);
end;
end;
Один из видов принтеров. Обладает малой скоростью печати по сравнению с лазерным принтером, но отличается высоким качеством печати полутоновых изображений, а также имеет более высокую скорость по сравнению с матричным принтером.Принцип действия струйных принтеров похож на матричные принтеры тем, что изображение на носителе формируется из точек. Но вместо головок с иголками в струйных принтерах используется матрица, печатающая жидкими красителями. Картриджи с красителями бывают со встроенной печатающей головкой — в основном такой подход используется компаниями Hewlett-Packard, Lexmark. Существуют картриджи, в которых печатающая матрица является деталью принтера, а сменные картриджи содержат только краситель. При длительном простое принтера (неделя и больше) происходит высыхание остатков красителя на соплах печатающей головки. Принтер умеет сам автоматически чистить печатающую головку. Но также возможно провести принудительную очистку сопел из соответствующего раздела настройки драйвера принтера. При прочистке сопел печатающей головки происходит интенсивный расход красителя. Особенно критично засорение сопел печатающей матрицы принтеров Epson, Canon. Если штатными средствами принтера не удалось очистить сопла печатающей головки, то дальнейшая очистка и/или замена печатающей головки проводится в ремонтных мастерских. Замена картриджа, содержащего печатающую матрицу, новых проблем не вызывает.
var
Nr , V1 , Va , Na : real;
begin
Writeln('Сколько рыбок?');
readln(Nr);
while(Nr <= 0) do
begin
Writeln('Некорректное число');
Writeln('Сколько рыбок?');
readln(Nr);
end;
Writeln('Сколько литров на одну рыбку?');
readln(V1);
while(V1 <= 0) do
begin
Writeln('Некорректное число');
Writeln('Сколько литров на одну рыбку?');
readln(V1);
end;
Writeln('Требуется воды = ', V1*Nr, ' л');
Writeln('Сколько аквариумов можно разместить?');
readln(Na);
while(Na <= 0) do
begin
Writeln('Некорректное число');
Writeln('Сколько аквариумов можно разместить?');
readln(Na);
end;
Writeln('Какой объем у аквариумов?');
readln(Va);
while(Va <= 0) do
begin
Writeln('Некорректное число');
Writeln('Какой объем у аквариумов?');
readln(Va);
end;
if (V1*Nr <= Va*Na) and (Na <= Nr) then
begin
Writeln('Минимальный объем (в литрах) в аквариуме = ', Va);
end
else
begin
Writeln('No');
end;
end.