freemvount
12.07.2020 09:29

1. Для чего предназначен оператор CLS
1. задание положения курсора
2. вывод на экран
3. определение цвета
4. очистка экрана
2. Для чего предназначен оператор LINE?
1. Для рисования линий;
2. Для вывода на экран точки;
3. Для закрашивания замкнутой поверхности;
4. Для переключения в графический режим.
3. Какой оператор рисует окружность?
1. CIRCLE (X,Y),R,C;
2. PSET (X,Y),C;
3. CIRCLE (X,Y),R,B;
4. LINE (X1,Y1)-(X2,Y2),C.
4. Чему равно значение У в операторе PSET (5, 90), 15?
1. 90;
2. 5;
3. 15;
4. 0.
5. Укажите верную запись оператора
1. LINE (100, 100) ;(200,200), 5
2. LINE (100; 100) – (200; 200), 5, В
3. LINE (100, 100) – (200, 200) 5, В
4. LINE (100-100) ; (200-200) 5, ,
6. В какой (-их) строке (-ах) программы компьютером будет выдана ошибка?
1. SREENT 12
2. PSET (150, 70), 6
3. CIRCLE (30, 40), 20
4. LINE (10, 10) – (20,20), 4
5. LINE (10, 10) – (20-20)
7. Какая буква будет нарисована в результате выполнения программы?
1. Р
2. П
3. Н
4. В
8. Для чего предназначен оператор SCREEN?
1. Для переключения в графический режим;
2. Для вывода на экран точки;
3. Для очистки экрана;
4. Для закрашивания замкнутой поверхности.
9. В результате выполнения команды

PRINT "3*3="; 3*3 :
а) на экран будет выведено: 3*3=9;
б) на экран будет выведено: 3*3=3*3;
в) на экран будет выведено: 9;
г) на бумаге будет напечатано: 3*3=9

10. После оператора INPUT в языке программирования Basic указывается:
1. в необязательном порядке текстовая константа, используемая в качестве подсказки, и в обязательном порядке список переменных;
2. перечень используемых в программе констант;
3. перечень всех используемых в программе переменных;
4. список выражений

11. Если Х$="победа", К=2, Р=4, то MID$(X$,K,P) равно
1."беда";
2."еда";
3."да";
4."обед".

12. Чему станет равно значение переменной X после выполнения команды
Х=Х+2, если до ее выполнения оно было равно 3?
1. 1
2. 2
3. 3
4.5

13. В результате исполнения программы
INPUT N
S=0
FOR K=l ТО N
S=S+K^2
NEXT K
PRINT S
при N = 3 на экран будет выведено число:

1. 14;
2. 9;
3. 6;
4. 10.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
dia651
07.08.2022 10:57
1)
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;   
max:=0;
while n>0 do 
begin 
m:=n mod 10; 
if m<min then min:=m; 
if m>max then max:=m; 
n:=n div 10; end;   
writeln('Максимальное число: ',max);   
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
0,0(0 оценок)
Ответ:
обожеэтовкдья
02.03.2023 00:54

В n будем хранить количество чисел, которые ещё нужно вывести. a и b - предыдущее и текущее числа Фибоначчи. По определению, следующее число Фибоначчи равно сумме двух предыдущих, так что новое значение b будет a + b. Чтобы не заводить новую временную переменную, новое значение a можно будет найти, вычитая из нового b старое a, получится (a + b) - a = b.

Код процедуры:

procedure print_fib(n: integer);

var a, b, t: integer;

begin

   a := 0;

   b := 1;

   while n > 0 do

   begin

       write(b, ' ');

       b := a + b;

       a := b - a;

       n := n - 1;

   end;

end;

Пример основной программы:

begin

   print_fib(10)

end.

Вывод:

1 1 2 3 5 8 13 21 34 55

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота