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

Дядя фёдор учит с галчонком буквы. для того, чтобы галчонок различал разные буквы, дядя фёдор сделал карточки, разрезав по буквам открытку со словом "интерпретатор". использую полученные карточки, галчонок должен был составить все возможные последовательности из четырёх буквы, такие, что все буквы в последовательности различны, и все последовательности отличаются друг от друга хотя бы одной буквой. последовательности, состоящие из одинаковых карточек, но стоящих в разном порядке, считаются различными. сколько получилось таких последовательностей? в ответе укажите число

👇
Ответ:
alyaomelchenko
alyaomelchenko
11.04.2020
В слове "ИНТЕРПРЕТАТОР"  8 различных букв: И, Н, Т, Е, Р, П, А, О.
Количество требуемых последовательностей вычисляется как число размещений из 8 по 4. Формула: A(n,m) = n! / (n-m)! = 8! / (8-4)! = 8!/4! = 1680.
4,6(46 оценок)
Открыть все ответы
Ответ:
uylia7
uylia7
11.04.2020
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9
4,8(85 оценок)
Ответ:
mikhailstrelni
mikhailstrelni
11.04.2020
1. Если имеется в виду язык Pascal, то получим следующее:
var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  readln(a);
  b:=a+a;
  writeln (b);
end.

Program50.pas(5) : Неизвестное имя 'b'

2. Попробуем такой вариант на Python

a =int(input())
b = a+a
print(b)

При вводе а получим на выходе 10

Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:

var: a;
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  readln(a);
  var b:=a+a;
  writeln (b);
end.

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