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

На бейсике сделать нужно даны два целых числа a и b . вывести в порядке возрастания все целые числа, расположенные между a и b (включая сами числа a и b), а также количество n этих чисел. входные данные: ввести два целых числа a,b выходные данные: вывести в порядке возрастания все целые числа, расположенные между a и b (включая сами числа a и b), а также количество n этих чисел.

👇
Ответ:
elsafrozen24
elsafrozen24
26.04.2022

СLS

a:

INPUT a

IF INT(a)<>a THEN GOTO a

b:

INPUT b

IF INT(b)<>b THEN GOTO b

IF b<a THEN k=a: a=b: b=k

FOR i = a TO b

PRINT i

NEXT i

n=b-a+1

PRINT n

 

4,7(26 оценок)
Открыть все ответы
Ответ:
larjon
larjon
26.04.2022
Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.
4,4(82 оценок)
Ответ:
ArianaLi
ArianaLi
26.04.2022
Все довольно просто, мог бы и сам прогнать через ide!) 
1) const a: array [1..6] of integer=(1, 7, 3,6,0,10);  тут ты инициализируешь массив которые включает 6 элементов такие как: (1, 7, 3,6,0,10)
2) после ты по циклу начинаешь складывать все элементы массива, которые описаны выше - for i:=1 to 6 do s:=s+a[i]; т.е. 1+7+3+6+0+10
3) далее ты делишь сумму на 6 и присваиваешь результат переменной sr - sr:=s/6;
4) после этого пытаешься вывести значение переменной sr - writeln(‘sr=’, sr); 

ответ будет 4.5, но твоя программа не выполниться, т.к. 4.5 это дробное число, а у тебя на переменную sr стоит тип integer, для того, чтобы программа отработала и вывело ответ, сделай тип переменной sr: real и тогда у тебя все получиться =)

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