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

1. Составьте программу, используя среду программирования Scratch ( )
Когда Алдар-Косе и бaй встречаются, то приветствуют друг друга словом
«Салем!». Известно следующее: «При нажатии на пробел, Алдар Косе и бай идут
навстречу, если касаются друг друга выдается сообщение «Салем!»
Скрипт для Алдар-Косе Скрипт для бая
События
Движение
Условие Сенсоры
Внешность​

Показать ответ
Ответ:
KARAZINO
KARAZINO
05.06.2023 08:55

program Find33;

uses  SysUtils;

const

 L = 100;    // количество чисел, можно изменить на любое значение

var

 i, j, c, cnt: Integer;

 A: array [1..L] of Integer;  // массив для сохранения чисел

 s: string;

begin

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

 Randomize;                               // инициализация датчика случайных чисел

 for i := 1 to L do begin

   A [i] := 100 + Random (900);           // заполняем массив случайными трехзначными числами

   Write (A [i], ' ');                    // выводим их все на дисплей

 end;

 cnt := 0;                                // счетчик чисел с двумя тройками

 WriteLn ('Найдены числа:');

 for i := 1 to L do begin                 // цикл перебора всех элементов массива

   s := IntToStr (A [i]);                 // трехзначное число преобразуем с символьную строку

   c := 0;                                // счетчик троек в числе

   for j := 1 to Length (s) do begin      // цикл перебора всех символов строки

     if s [j] = '3' then begin            // если тройка, то инкремент счетчика троек

       c := c + 1;

     end;

   end;

   if c >= 2 then begin                    // если в числе хотя бы две тройки, то вывод числа и инкремент счетчика чисел

     cnt := cnt + 1;

     WriteLn (A [i]);

   end;

 end;

 WriteLn ('Количество чисел, у которых хотя бы две тройки = ', cnt);  // вывод результата

 ReadLn;                                   // ждать нажатия Enter

end.

Объяснение: комментарии в программе

0,0(0 оценок)
Ответ:
Ekaterina152005
Ekaterina152005
20.01.2021 11:08
На С++ попробую по фасту написать.
int main()
{
int a,b,c,d,z,sum;
cout<<"Сколько денег ты потратил на игры в этом месяце?"<<endl;
cin>>a;
cout<<"Сколько денег ты потратил на еду в этом месяце?"<<endl;
cin>>b;
cout<<"Сколько денег тебе дали родители в этмо месяце?"<<endl;
cin>>c;
cout<<"Сколько денег ты одолжил другу в этом месяце?"<<endl;
cin>>d;
cout<<"Сколько денег ты потратил на себя в этом месяце?"<<endl;
cin>>z;
sum=a+b+c+d+z;
cout<<"Общая сума - "<<sum<<endl;

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