В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
serjyas1972
serjyas1972
24.10.2021 00:43 •  Информатика

На сколько сложно сделать свою телефонную игру без особой подготовки?

Показать ответ
Ответ:
kotkin
kotkin
24.09.2020 20:32

1,2:

garden = 'В нашем саду растут 20 яблонь и 15 груш'

gardensplit=garden.split()

gardensplit[5],gardensplit[-1]=gardensplit[-1],gardensplit[5]

garden=" ".join(gardensplit)

print(garden)

summ=0

for i in gardensplit:

if i.isdigit():

  summ+=int(i)

print(summ)

3:

a=int(input("Введите число: "))

print("Это ",len(str(a)),"-значное число",sep="")

4:

text=input("Введите текст: \n")

word=input("Введите слово для поиска: ")

wordchng=input("Введите слово для замены: ")

if word in text:

print(text.replace(word,wordchng))

else:

print("Искомое слово не найдено")

0,0(0 оценок)
Ответ:
strimersakarinа
strimersakarinа
17.10.2022 10:53

напутано было со скобками(Begin - end) и убрал два цикла

program z_2;

var

 x:array[1..100] of integer;

 y:array[1..100] of integer;

 z:real;

 i,n:integer;

 s1,s2:integer;

 procedure sums(var s1,s2:integer);

 begin

   s1:=0;

   write ('n=');

   readln(n);

   for i:=1 to n do begin

     write('x[',i,']=');

     readln(x[i]);

     if x[i]>0 then s1:=s1+x[i];

   end;

   s2:=0;

   for i:=1 to n do begin

     write('y[',i,']=');

     readln(y[i]);

    if y[i]<0 then s2:=s2+y[i];

   end;

 end;

begin

 sums(s1,s2);

 z:=(s1+s2)/2;

 writeln('z=',z:4:4);

end.

(*2 вариант немного модифицированный*)

program z_2;

const

 n=15;

 m=20;

var

 x:array[0..n-1] of integer;

 y:array[0..m-1] of integer;

 z:real;

 i, s1, s2, a,b :integer;

 function sums(s : array of integer; k, p :integer): integer;

 begin

   sums := 0;

   for i:=0 to k-1 do

     if p*s[i]>0 then sums:=sums + s[i];

 end;

begin

 for i:=0 to n-1 do begin

   write('x[',i+1,']=');

   readln(x[i]);

 end;

 for i:=0 to m-1 do begin

   write('y[',i+1,']=');

   readln(y[i]);

 end;

 z:=(sums(x, n, 1) + sums(y, m, -1))/2;

 writeln('z=',z:4:4);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота