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

у меня больше нету на казакском напишите эссе


у меня больше нету на казакском напишите эссе

👇
Ответ:
platonnikitos
platonnikitos
14.10.2021

Роботтар адамдарды күнделікті жұмыстан босатады", - дейді ғалымдар. "Қашан?"- деп сұрайды қызықты мектеп оқушылары, студенттер және тұтастай алғанда, бірнеше ондаған жылдан кейін жұмыссыз қалудан қорқатын адамдар. Қандай мамандар және жасанды интеллект қаншалықты тез ауыстырылады? Мамандардың болжамына сәйкес, 2024 жылға қарай жасанды интеллект мәтіндерді жақсы аударуды үйренеді, ал 2026 жылға қарай ол мектеп оқушыларына эссе жаза алады. Машинаның қаламынан бестселлерлер 2049 жылға қарай шыға бастайды. Роботтар адамды басқа салаларда да қысады: 10 жылдан кейін компьютерлер жүк машиналарын жүргізе бастайды, 2031 жылға қарай олар сатушыларды алмастырады. 2053 жылға қарай темір хирургтардың жұмысын бастайды.

Объяснение:

4,7(60 оценок)
Открыть все ответы
Ответ:
рома1341
рома1341
14.10.2021
// PascalABC.Net 3.0, сборка 1064
const
  n = 10;
var
  ms: array[1..n] of string;
  t: string;
  i, j: integer;
  f: Text;
begin
  { Чтение матрицы из файла }
  Assign(f, 'in.txt'); Reset(f);
  for i := 1 to n do Readln(f, ms[i]);
  Close(f);
  { Вывод матрицы на экран }
  Writeln('*** Бинарная матрица ***');
  for i := 1 to n do Writeln(ms[i]);
  { Сортировка обменом (простейшая) }
  for i := 1 to n - 1 do
    for j := 1 to n - 1 do
      if ms[j] > ms[j + 1] then
      begin t := ms[j]; ms[j] := ms[j + 1]; ms[j + 1] := t end;
  { Поиск одинаковых строк }
  Writeln('Совпадающие строки');
  j := 1; t := ms[1];
  for i := 2 to n do
  begin
    if ms[i] = t then Inc(j)
    else begin
      if j > 1 then begin Writeln(t); j := 1 end;
      t := ms[i]
    end
  end;
  if j > 1 then Writeln(t)
end.

Контрольное решение:
*** Бинарная матрица ***
1 1 0 1 0 1 0 1 0 1
0 0 1 0 1 0 1 0 1 0
1 0 1 0 1 0 1 0 1 0
1 1 0 1 0 1 0 1 0 0
0 0 1 0 1 0 1 0 1 1
0 1 0 1 0 1 0 1 0 1
1 1 0 1 0 1 0 1 0 1
0 0 1 0 1 0 1 0 1 0
0 1 0 1 0 1 0 1 0 1
Совпадающие строки
0 0 1 0 1 0 1 0 1 0
0 1 0 1 0 1 0 1 0 1
1 0 1 0 1 0 1 0 1 0
1 1 0 1 0 1 0 1 0 1
4,6(97 оценок)
Ответ:
лох251
лох251
14.10.2021

N = int(input())


Speed_limit_car_count = 0


all_speed = 0


car_speed = []


i = 0


total = None


YN = None



def list_check(car_speed):


for i in range(len(car_speed)):


 if car_speed[i] in range(1, 300):


  normal = True


  continue


 else:


  normal = False


  break


return normal



if N not in range(1, 31):


print('Wrong input')


else:


while i < N:


 car_speed.append(float(input()))


 i += 1


normal = list_check(car_speed)


if normal:


 for i in range(len(car_speed)):


 

  if car_speed[i] <= 30:


   Speed_limit_car_count += 1



 for i in range(len(car_speed)):


  round(car_speed[i])


  all_speed += car_speed[i]



 total = all_speed/N



 if Speed_limit_car_count >= 2:


  YN = 'YES'


 else:


  YN = 'NO'


else:


 print('ERROR IN SPEEDLIST. CHEK INPUT!')



print(total, YN)



Программа протестирована. ctrl+c делать не стоит, сайт нарушает табуляции в коде.

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