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

Исходное данное — трёхзначное число x. Выполни для x=115 следующий алгоритм.

a:=x div 100
b:=x mod 100
c:=x mod 10
s:=a+b+c

ответ-одно число.

👇
Ответ:
SashaZaisnik1
SashaZaisnik1
01.03.2020

ответ: 21

Объяснение:

:= — знак присваивания. Переменная, стоящая до этого знака, получает значение, описанное после знака.

div — операция, находящая целую часть от деления двух чисел.

mod — операция, находящая остаток от деления двух чисел.

По алгоритму:

а:=115 div 100. 115/100= 1(ост. 15). Нам нужна целая часть, значит, а теперь равно 1.

b:=115 mod 100. 115/100= 1 (ост. 15). Здесь нам нужен остаток. Значит, b теперь равно 15.

с:=115 mod 10. 115/10= 11 (ост. 5). Нас интересует остаток. Значит, теперь с равно 5.

s присваивается значение суммы a, b и c. Значит, s= 1+15+5=21.

s=21.

ответ: 21.

4,5(90 оценок)
Ответ:
kiss123kiss
kiss123kiss
01.03.2020

a:=115div100=1

b:=115mod100=15

c:=115mod10=5

s:=1+15+5=21

Объяснение:

Mod-остаток от целочисленного деление.

Div-число на которое нужно разделить

4,8(39 оценок)
Открыть все ответы
Ответ:
Лиза221100
Лиза221100
01.03.2020
Uses
  Crt;
var
  i,n:integer;
  a,s:real;
begin
  Writeln('Вычисление среднего арифметического');
  Writeln('последовательности действительных чисел');
  Write('Введите количество чисел последовательности ->');
  Readln(n);
  Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
  s:=0;
  for i:=1 to n do
  begin
    Read(a);
    s:=s+a
  end;
  Writeln('Среднее арифметическое введенной последовательности: ',s/n);
  Write('Для завершения работы программы нажмите Enter');
  Readkey
end.

Тестовое решение:
Вычисление среднего арифметического
последовательности действительных чисел
Введите количество чисел последовательности ->5
Введите последовательность. После ввода каждого числа нажмите Enter
5.4
7.8
3.0
1.5
2.3
Среднее арифметическое введенной последовательности: 4
Для завершения работы программы нажмите Enter

Для версии Pascal.ABC.Net:
var
  i,n:integer;
  a,s:real;
begin
  Writeln('Вычисление среднего арифметического');
  Writeln('последовательности действительных чисел');
  Write('Введите количество чисел последовательности ->');
  Readln(n);
  Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
  s:=0;
  for i:=1 to n do
  begin
    Read(a);
    s:=s+a
  end;
  Writeln('Среднее арифметическое введенной последовательности: ',s/n)
end.
 
4,7(70 оценок)
Ответ:
gayratjonxaxa
gayratjonxaxa
01.03.2020
Uses
  Crt;
var
  i,n:integer;
  a,s:real;
begin
  Writeln('Вычисление среднего арифметического');
  Writeln('последовательности действительных чисел');
  Write('Введите количество чисел последовательности ->');
  Readln(n);
  Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
  s:=0;
  for i:=1 to n do
  begin
    Read(a);
    s:=s+a
  end;
  Writeln('Среднее арифметическое введенной последовательности: ',s/n);
  Write('Для завершения работы программы нажмите Enter');
  Readkey
end.

Тестовое решение:
Вычисление среднего арифметического
последовательности действительных чисел
Введите количество чисел последовательности ->5
Введите последовательность. После ввода каждого числа нажмите Enter
5.4
7.8
3.0
1.5
2.3
Среднее арифметическое введенной последовательности: 4
Для завершения работы программы нажмите Enter

Для версии Pascal.ABC.Net:
var
  i,n:integer;
  a,s:real;
begin
  Writeln('Вычисление среднего арифметического');
  Writeln('последовательности действительных чисел');
  Write('Введите количество чисел последовательности ->');
  Readln(n);
  Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
  s:=0;
  for i:=1 to n do
  begin
    Read(a);
    s:=s+a
  end;
  Writeln('Среднее арифметическое введенной последовательности: ',s/n)
end.
 
4,6(87 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ