М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
milanavornik
milanavornik
14.02.2020 03:45 •  Информатика

Играю в вормикс ник fox's_jiuc сколько у меня рейта

👇
Ответ:
РЕЙТА-0.
троллинг :
4,8(59 оценок)
Открыть все ответы
Ответ:
Kotyanya
Kotyanya
14.02.2020
// PascalABC.NET 3.2, сборка 1401 от 14.03.2017
// Внимание! Если программа не работает, обновите версию!

1. Решение без проверки вводимых данных

begin
  var a,b:integer;
  Read(a,b);
  var P:=ArrFill(30,0);
  for var i:=a-1 to b-1 do P[i]:=2;
  P.Println
end.

Пример
2 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

2. Решение с контролем ввода

begin
  var a:=ReadInteger('Введите a от 1 до 30:');
  if a<1 then begin Writeln('Неверно'); Exit end;
  var b:=ReadInteger('Введите b от '+a.ToString+' до 30:');
  if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end;
  var P:=ArrFill(30,0);
  for var i:=a-1 to b-1 do P[i]:=2;
  P.Println
end.

Пример
Введите a от 1 до 30: 2
Введите b от 2 до 30: 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
4,5(7 оценок)
Ответ:
fomicheva3ket
fomicheva3ket
14.02.2020

какой то родители будут ок будем играть на этих картах и что ты делаешь сейчас на моем канале в доме пока я буду строить и не двигался вбок в моем профиле в доме это был челом не могу играть на этих картах и что я буду точно такое же как ты но у меня нету вещей и не буду спрашивать больше и больше удали эту тему в с чате лучше учится на хай и что я буду точно такое же как и не буду спрашивать больше и больше удали эту тему в этом разделе вы можете увидеть как ты не против если я тебя защищал мы с тобой

4,4(75 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ