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

Напишите алгоритм изменения формата данных в ячейках электронных таблиц MS Exsel​

👇
Ответ:
osadcha2004
osadcha2004
11.05.2023

изи

Объяснение:

4,4(30 оценок)
Открыть все ответы
Ответ:
Suprunenko2007
Suprunenko2007
11.05.2023

import random as r

def print_door():

print(" {0:_^10}".format(''))

for i in range(10):

 if i<9:

  print("|{0: ^9} |".format(' '))

  if i==3:

   print("|---|{0: ^5} |".format(' '))

   print("|---|{0: ^5} |".format(' '))

 elif i==9:

  print("|{0:_^10}|".format(''),end="")

return ' '

def create_session(n):

for i in range(n):

 print_door(),

 print('\n')

return ''

while True:

N=int(input("введите кол-во дверей"))

create_session(N)

y=r.randint(1,N)

x=int(input("введите номер двери в которой пусто-"))

while  x!=y:

 x=int(input("введите номер двери в которой пусто-"))

print("вы выиграли")

x=input("вы хотите продолжить играть?")

if x=="нет":

 break

elif x=="да":

 continue

4,4(73 оценок)
Ответ:
ForaN777
ForaN777
11.05.2023

Первая

const n=10;

var a:array[1..n] of integer;

   i,t:integer;

begin

 randomize;

 for i:=1 to n do a[i]:=random(100);

 for i:=1 to n do begin

   writeln('a[',i,']=',a[i]);

   if(t < a[i]) then

     t:=a[i];

 end;

 writeln('Максимимум: ',t);

end.

Вторая

const n=5;

var a:array[1..n] of integer;

   i,t,c:integer;

begin

 for i:=1 to n do readln(a[i]);

 for i:=1 to n do begin

   if(t < a[i]) then begin

     t:=a[i];

     c:=0;

   end;

   if(t = a[i]) then

     c += 1;

 end;

 writeln(c);

end.

Третья

const n=5;

var a:array[1..n] of integer;

   i,t,c:integer;

begin

 for i:=1 to n do readln(a[i]);

 for i:=1 to n do begin

   if(i mod 2 = 0) then

     t:=t + a[i];

   if(i mod 2 <> 0) then

     c:=c + a[i];

 end;

 writeln(t-c);

end.

Дополнение

i:=1;

while i <= 20 do begin

 i:=i+1;

end;

for i:=1 to 20 do begin

end;

4,5(58 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ