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

Дано трехзначное целое число х . найти остаток от деления произведения всех его цифр на сумму всех его цифр. вывести новое число y,поменяв местами вторую и третью цифру числа x. решение нужно на с++

👇
Ответ:

var n: integer;

begin

read(n);

write(n div 100 + n div 10 mod 10 + n mod 10)

end.

4,6(18 оценок)
Ответ:
9109160145davla
9109160145davla
09.03.2023

#include <bits/stdc++.h>

#include <string>


int main(){

string s;

cin >> s;

int sum = 0, null = 1;

for(auto f: s){

 sum += f - '0';

 null *= f  - '0';

}

cout << null % sum << '\n';

swap(s[1], s[2]);

cout << s;

return 0;

}

4,4(65 оценок)
Открыть все ответы
Ответ:
alena3211
alena3211
09.03.2023
Общий вес груза = 7*10+7*5 = 105 т, следовательно, на каждой палубе должно быть по 105/3 = 35 т.
35 т. можно получить следующими
10 т  5 т
3       1
2       3
5       1
0       7
Комбинируя эти варианты, получим следующие варианты распределения контейнеров:
1:
10 т   5 т   0 т
3       1      3   (всего 7, вес 35 т)
3       1      3   (всего 7, вес 35 т)
1       5      1   (всего 7, вес 35 т)

7       7      7

2:
10 т   5 т   0 т
3       1      3   (всего 7, вес 35 т)
2       3      2   (всего 7, вес 35 т)
2       3      2   (всего 7, вес 35 т)

7       7      7
4,8(39 оценок)
Ответ:
abdigalikova1708
abdigalikova1708
09.03.2023
{
правильная программа, кол-во элементов вводится с клавиатуры
}
Program Summa;
uses crt;
type a1= array of integer;
var a: a1;
m,s,n: integer;
procedure Input;
const p=1;
const q=20;
var i: integer;
begin
randomize;
begin
for i:=0 to n-1 do a[i]:=random(q-p+1)+p;
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure Print;
var i: integer;
begin
write('Массив целых чисел А: ');
for i:=0 to n-1 do write(' ',a[i]);
writeln;
writeln;
end;
procedure Sum( m: integer);
var i: integer;
begin
s:=0;
for i:=0 to m-1 do s:=s+a[i];
end;
Begin
ClrScr;
write('введите кол-во элементов в массиве: ');
readln(n);
SetLength(a, n);
Input;
ClrScr;
Print;
write('Сколько элементов суммировать: ');
readln(m);
Sum(m);
writeln;
writeln('Сумма ',m,' элементов масссива равна: ', s);
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Writeln ('Среднее арифмитическое всех элементов равно ', s/n);
Readkey;
end.
4,8(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ