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

Составляете сначала к ним алгоритм, а затем справа от него записываете программу.
2. Дано число – а. Если а=1, то вывести фразу «золотая медаль», если а=2 –«серебряная медаль», если а=3 – «бронзовая медаль».
3. Соискателя возьмут на работу, если его стаж больше 3-х лет. Определите возьмут ли девушку на работу, если её стаж составляет t лет?

Показать ответ
Ответ:
dali666
dali666
12.12.2020 12:40
А) для представления объектов окружающего мира могут быть использованы: макет застройки жилого района и фотоснимки движения воздушных масс; б) для объяснения известных фактов могут быть использованы: фотоснимки движения воздушных масс, модель полёта самолёта новой конструкции в аэродинамической трубе и схема строения внутренних органов человека; в) для проверки гипотез и получения новых знаний об исследуемых объектах могут быть использованы: фотоснимки движения воздушных масс, модель полёта самолёта новой конструкции в аэродинамической трубе и схема строения внутренних органов человека; г) для прогнозирования могут быть использованы: фотоснимки движения воздушных масс, расписание движения поездов и модель полёта самолёта новой конструкции в аэродинамической трубе; д) для управления могут быть использованы: расписание движения поездов. Ну если же у вас такой же перечень как и у меня.
0,0(0 оценок)
Ответ:
5класс75
5класс75
04.09.2021 13:00
Const
  n=13;
var
  a:array[1..n] of integer;
  i,k,t:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to n do
    begin
    a[i]:=Random(21)-10;
    Write(a[i],' ')
    end;
  Writeln;
  { начало собственно программы }
  i:=1; k:=0;
  while (i<=n) and (k=0) do
    begin
    if a[i]=0 then k:=i;
    i:=i+1
    end;
  if k>0 then
    begin
    for i:=k to n-1 do a[i]:=a[i+1];
    Writeln('Массив-результат');
    for i:=1 to n-1 do Write(a[i],' ');
    Writeln
    end
  else
    Writeln('В массиве нет нулевых элементов')
end.

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