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

Исправь ошибки, язык питон:
#Программа должна вывести сумму трёх чисел, переданных в параметрах
amount(a, b, c):
print a + b + c

amount(1, 4, 2)

Желательно с объяснением

👇
Ответ:
arekhvanova
arekhvanova
04.06.2020

def amount(a, b, c): # Создаём функцию & метод

   print (a + b + c) # Выводим на экран сумму трёх чисел, переданных в параметрах   amount(a, b, c)

amount(1, 4, 2) # Передаём параметры в ()

input() #Чтобы консоль сразу не закрылась

Объяснение:

Не знаю что тут можно объяснять - иди учи Python !!!

4,7(4 оценок)
Открыть все ответы
Ответ:
Var
   A:array[1..13,1..13] of integer;
   i,j,n,M,k,C:integer;
Begin
Randomize;
N:=Random(13)+1;
M:=N div 2 +2;
WriteLn('Исходный массив(',N,'):');
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(N*2+1)-N;
        Write(A[i,j]:3,' ');
        End;
    WriteLn
    End;
k:=1;
if (N>2) then
   Begin
   C:=A[M,N-M+2];
   For i:= M to N do
       For j:= N-i+2 to i-1 do
           if A[i,j] <> C then k:=0;
   if k <> 0 then WriteLn('Да')
   else WriteLn('Нет')
   End
else WriteLn('В массиве нет элементов ниже главной и побочной диагоналей.');
End.
4,8(91 оценок)
Ответ:
rlynx675
rlynx675
04.06.2020

1.

Var s:string;

z,i,k:integer;

Begin

z:=0;

write('Введите строку: ');
readln(s);

k:=0;

For i:=1 to Length(s) do

if s[i]='!' then

Begin

inc(k);

End;

for i:=1 to Length(s) do

if s[i] = '!' then begin

write(i);

exit;

end;

if k<>0 then

writeln('Порядковый номер первого восклицательного знака = ', z);

if k = 0 then writeln('Восклицательных знаков нет!');

readln;

End.

2.

var
f: file of char;
c: char;
r,w: LongInt;
begin
Assign(f,'test.txt');
r:= 0;
w:= 0;
Reset(f);
while not EoF(f) do begin
Read(f,c);
Inc(r);
if c<>' ' then begin
Seek(f,w);
Write(f,c);
Inc(w);
Seek(f,r);
end end;
Seek(f,w);
Truncate(f);
Close(f)
end.
4,6(11 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ