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

Всем привет, подскажите , в чем ошибка моей программы на python. Вот условие: Робот Костя и механический попугай Лёшенька играли в шпионов. Костя передавал Лёшеньке секретный код — число из трёх цифр. Передатчик подпортили неведомые враги, и Лёшенька услышал только первую и третью цифру числа.
К счастью, он знает, что сумма этих цифр должна делиться на три и что Костя подобрал самое маленькое число из возможных.
Даны первая и третья цифры. Выведи вторую.
А вот мое решение:
a=int(input())
c=int(input())
b=0
d=a+c+b
while d%3!=0:
b=b+1
print(b)

👇
Ответ:

a = int(input())

c = int(input())

b = 0

while (a + b + c) % 3 != 0:

   b = b + 1

print(b)

4,4(59 оценок)
Открыть все ответы
Ответ:
lili247
lili247
19.10.2020
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

  var mas:=ArrRandomReal(10,-99,99);

  var c:=mas.Select(t->round(t*100) / 100).ToArray; c.Println;

  var b:=c.Min;

  c[7]:=b;

  c.Println;
end.

Program m2

begin

var n:=readinteger('Введите количество n=');

var (b,a,c):=(3,1,2);

var k:real:=0;

for var i:=1 to n do

begin

 k:=k+b/(a*c);

b:=b+3;a:=a+1;

c:=c+2;

end;

Writeln('Сумма=',k);
end.

Program m3;

begin

  var n:=readinteger('Введите количество n=');

  var c:real:=0;

  var b:=1;

for var i:=1 to n do

begin

c:=c+b**2;

b:=b+1;

end;

var y:=n*(n+1)*(2*n+1)/6;

if c=y then

writeln('тождество верно')

else writeln('тождество не верно')

end.
4,6(33 оценок)
Ответ:
abroe
abroe
19.10.2020
Var a: array of real;
    i,n,m,k,p: integer;
    s: real;
begin
  write('n = ');  readln(n);
  setlength(a,n);
  s:=1;
  randomize;
  writeln('массив:');
  for i:=0 to n-1 do
  begin
    a[i]:=random(200)/1000;
    s:=s*a[i];
    write(a[i]:5:3,' ');
  end;
  writeln;
  s:=power(s,1/n);
  p:=0; m:=0; k:=0;
  writeln('среднее геометрическое: ',s);
  for i:=0 to n-1 do
  begin
    if a[i]<s then inc(m);
    if a[i]>s then inc(k);
    if a[i]=s then inc(p);
  end;  
  writeln('меньше: ',m,'  равно: ',p,'   больше: ',k);
end.

n = 10
массив:
0.165 0.133 0.134 0.190 0.151 0.132 0.187 0.028 0.021 0.017 
среднее геометрическое: 0.0854754255570728
меньше: 3  равно: 0   больше: 7
4,6(89 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ