Алгоритм разветвления. составить алгоритм, который проверяет, делится ли на три целое число, введенное с клавиатуры (возможно использование оператора mod – остаток от деления двух чисел

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.

Програмними об’єктами середовища Scratch є спрайти (виконавці) та Сцена.

Усі спрайти мають свої властивості: ім’я, положення на Сцені, розміри, напрямок, у якому вони будуть рухатися, колір костюма та інші. Сцена як об’єкт середовища Scratch має властивості Тло та розмір. Кожна із цих властивостей має своє значення. Переглянути та змінити значення властивостей об’єктів можна в розділі Інформація або у вбудованому графічному редакторі.

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

У середовищі Scratch вибрати дії зі спрайтами (вилучити, дублювати, сховати, збільшити, зменшити, переглянути інформацію) можна в контекстному меню об’єкта або в Рядку меню програми.

Під час виконання програмного проекту Scratch для спрайтів може бути визначено деякі події, опрацювання якмх приведе до змінення значень властивостей об’єктів. Команди, які можна застосувати для таких цілей, розміщено у групах Подія, Керування, Датчики вкладки Скрипти.

Объяснение:

Var uniq: set of char;       used: set of char;       s: string;       i: integer;       done: boolean;       c: char; begin uniq : = []; used : = []; readln(s); for i : = 1 to length(s) do   if not (s[i] in used) then   begin       include(uniq, s[i]);       include(used, s[i]);   end   else   begin       exclude(uniq, s[i]);   end; done : = false; for c : = #0 to #255 do   if (c in uniq) then   begin       done : = true;       write(c);   end; if not done then   write('no'); writeln; end.