В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Tokuz
Tokuz
17.10.2022 20:12 •  Информатика

Изменения в СОР
1. Изменить внешний вид птичек (перекрасить их еще раз).
2. Сделать так, чтобы птички вылетали из центра экрана в противоположные стороны.
3. После перехода к фону Ролик, сначала из центра экрана появляется первая птичка и петит и
Левому краю сцены. Затем через 1 секунду появляется вторая птичка и летит к правому краю
сцены.
4. Появляться после столкновения 1 птичка должна из верхнего правого угла, вторая птичка из
нижнего левого угла
. Птички должны столкнуться 10 раз, затем должны скрыться и фон меняется на конец.
в скреч​ фото​

Показать ответ
Ответ:
kseniyapolozhe
kseniyapolozhe
23.08.2021 17:16

program amountn;

var

 amount, n, number, i: integer;

begin

 amount := 0;

 write('Введите количество чисел: ');

 read(n);

 for i := 1 to n do

 begin

   read(number);

   amount := amount + number;

 end;

 writeln('Сумма n чисел: ', amount);

end.

Объяснение:

program amountn;  // Название программы

var

 amount, n, number, i: integer;  // Целочисленные переменные:

amount - сумма чисел;n - количество чисел;number - сами числа;i - счетчик для цикла for.

begin  // Начало программы

 amount := 0; // Переменная, хранящая сумму, = 0

 write('Введите количество чисел: ');  // Вывод сообщения в консоль

 read(n);  // Считываем количество чисел с клавиатуры

 for i := 1 to n do  // Идём с единицы до n (цикл для ввода n чисел)

 begin  // Начало цикла

   read(number);  // Считываем число с клавиатуры

   amount := amount + number;  // К переменной, хранящей сумму, прибавляем число

 end;  // Конец цикла

 writeln('Сумма n чисел: ', amount);

end. // Конец программы

0,0(0 оценок)
Ответ:
sebtetfGек5у
sebtetfGек5у
07.04.2023 21:14

program amountnumbers;

var

 amount, number, a: integer;

begin

 write('Введите трехзначное число: ');

 read(number);

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

 read(a);

 while number > 0 do

 begin

   amount := amount + number mod 10;

   number := number div 10;

 end;

 if (amount mod a = 0) then

   writeln('Да')

 else

   writeln('Нет');

end.

Объяснение:

program amountnumbers;  // Название программы

var

 amount, number, a: integer;  // Целочисленные переменные:

amount - сумма цифр трехзначного числа;number - трехзначное число, вводимое с клавиатуры;a - число для проверки на кратность.

begin  // Начало программы

 write('Введите трехзначное число: ');  // Вывод сообщения в консоль

 read(number);  // Считываем трехзначное число с клавиатуры

 writeln('Введите число А:');  // Вывод сообщения в консоль

 read(a);  // Считываем число А с клавиатуры

 while number > 0 do  // Пока значение переменной number > 0

 begin  // Начало цикла

   amount := amount + number mod 10;  // Сумма цифр = сумма цифр + последняя цифра числа

   number := number div 10;  // Отделяем последнюю цифру от числа

 end;  // Конец  цикла

 if (amount mod a = 0) then  // Если значение переменной amount делится на значение переменной A без остатка, тогда

   writeln('Да')  // Вывод сообщения в консоль

 else  // Иначе

   writeln('Нет');  // Вывод сообщения в консоль

end. // Конец программы

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