СОР за раздел 6.5 «Создание компьютерной игры» Вариант 2. 1. Действия игры в программе Scratch располагаются [1] 2. Рассмотрите блок-схему: a) Определите условие[1] b) Определите действие [1] 3. Изучите скрипт и составьте блок-схему для данной задачи: [3] 4. Рассмотри скриншоты сцены. Лошадка скачет по сцене, Лев стоит Лошадка ударяется о край сцены, разворачивается и говорит «ОЙ!» В это время Лев изменяется и говорит «Бедняжка!» а) запиши скрипт Лошадки, размещая команды в нужной последовательности: 1. 2. 3. 4. 5. 6. 7. 8. 9. [3] b) Напиши скрипт для Льва. Когда Лев получает «ОЙ!» он меняет костюм и гов

#include<iostream>
using namespace std;
 int main(){ 
   setlocale( LC_ALL, "Russian" );   
float M,K,S; 
   int dp;     
   cout << "Какие действие вы будете выполнять:" << endl; 
   cout << "1. Сложение. " << endl; 
   cout << "2. Отнимание." << endl;   
 cout << "3. Умножение." << endl;   
   cout << "Введите число для выбора действия" << endl; 
    cin >> dp;     switch(dp) 
  {   
 case 1:   
    cout << "Число M = ";   
    cin >>M;   
    cout <<"Число K = ";     
  cin >> K;       
 S = M + K;   
     cout << "\n"<<M<<"+"<<K<<"="<<S<<endl; 
  break;
 case 2: 
       cout <<"Число M = "; 
      cin >> M;     
   cout <<"Число K = ";     
   cin >> K;   
    S = M - K;   
     cout <<"\n" << M <<"-"<<K<<"="<<S<<endl;   
     break;
  case 3:   
     cout <<"Число M = "; 
      cin >> M; 
      cout <<"Число K = "; 
      cin >> K;     
  S = M *K;   
     cout <<"\n"<<M<<"*"<<K<<"="<<S<<endl; 
       break;  
   }   
  system("pause");
return 0;
}

//Pascal
//Для натуральных чисел
var a, s, p:integer;

begin
  write('Введите число = ');
  readln(a);
  s := 0;
  p := 1;
  while (a<>0) do
  begin
    p := p * (a mod 10);
    s := s + (a mod 10);
    a := a div 10;
  end;
 writeln( 'Сумма цифр числа = ', s);
 writeln( 'Произведение цифр числа = ', p);
end.

//Если число отрицательное
var
  s, p, a, b, c: integer;
  f: boolean;
begin
  write('Введите число = ');
  readln(a);
  if a < 0 then
    f := true;
  a := abs(a);
  b := a mod 10;
  a := a div 10;
  c := a mod 10;
  a := a div 10;
  if f = true then
  begin
    p := (-a) * b * c;
    s := -a + b + c;
  end
  else
  begin
    s := a + b + c;
    p := a * b * c;
  end;
  writeln('Сумма цифр числа = ', s);
  writeln('Произведение цифр числа = ', p);
end.