Выберите, что выведет на экран данный фрагмент программы.
x:=150;
n:=x div 10;
x:=x-n;
if (x mod 5 = 0) and (n mod 5<
>0)

then writeln (x)
else writeln(n);​

За до команд групи Рух створюють події переміщення виконавця по сцені. Так само, яку кінозалі можна знайти місце за купленим квитком, розташування виконавця визначається двома числами: X — позицією в рядку та Y-позицією у стовпці. У центрі сцени X = 0 та Y = 0. Якщо виконавця перемістити по горизонталі від центра праворуч, то його позиція в рядку відповідатиме X = а, де а — кількість кроків праворуч. Якщо виконавця переміщувати у зворотному напрямку, то вираз позиції у рядку набуде вигляду X = -а, де а — кількість кроків, а знак «->> вказує на напрямок руху — ліворуч. Аналогічно при русі вгору від центра Y = а, а вниз — Y =-а. Число a називають параметром команди, значення якого можна змінювати при складанні алгоритму.

Виконавець алгоритму в середовищі Скретч може також змінювати свій вигляд: колір і відображення. Так само, як зображають у коміксах, виконавець може «говорити» чи «думати». Такі команди зібрані у групі Вигляд

Викликати графічний редактор середовища Скретч можна за до вказівки Малювати або Редагувати вкладки Образи.

Зміна фону сцени відбувається аналогічно до зміни образу виконавця.

Скільки виконавців можна використовувати у проекті Скретч?

У проекті Скретч можна використовувати декілька виконавців.

Кожен із них виконуватиме свої дії на сцені за окремою програмою, що складає людина, яка працює з цим середовищем.

Для розробки проекту часто використовують різні графічні зображення, з якими можуть бути пов’язані події на сцені. Наприклад, якщо виконавець Рибка торкається краю акваріума — має повернутись у зворотному напрямку. Є графічні зображення. які використовують тільки для створення сцени проекту, наприклад, фон сцени або інше.

Образи виконавців, фон сцени і графічні зображення на сцені є об’єктами. їх список відображається під сценою

Вариант 1
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   for i:=1 to length(str) do begin
     if (str[i]='А')or (str[i]='а') then a:=a+1;
     if (str[i]='Б')or (str[i]='б') then B:=b+1;
   end;
   if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b);
end.

вариант 3
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   i:=1;
   while i<=length(str) do begin
    if (str[i]='А')or (str[i]='а') then delete(str,i,1);
    i:=i+1;
    end;
   write(str);
      end.