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

Джек хочет построить дом. Будучи хорошим инженером, Джек выяснил, что для постройки дома требуется потратить A минут на планирование дома и B минут на реализацию плана (т.к. Джек — удивительный человек, время у него может быть и отрицательным). И, конечно, ему хочется узнать, сколько минут ему нужно потратить на воплощение своего искусства — дома в жизнь. Сейчас Джек очень занят (быть может, он кому-то разобраться с машиной или моет полы, а может пошёл на пикник). Поэтому он Вас ему с расчётами.

Формат ввода

В первой строке дано целое число A, во второй строке — целое число B — время, необходимое на планирование дома и время, необходимое на реализацию плана соответственно. (-1018 ≤ A,B ≤ 1018)

Формат вывода

В единственной строке выведите одно целое число — суммарное время, необходимое на постройку дома. на питон

Показать ответ
Ответ:
Валерик2281
Валерик2281
19.07.2020 13:34
Program arra;
const m=20;
var
B: Array[1..m] Of Integer;
i,j,k:integer;
BEGIN
randomize;
for i:=1 to m do begin 
B[i]:= random(101); 
end;  

write('Массив до сортировки: ');
 for i:=1 to m do begin
 write(B[i]); 
write(' '); 
end; 
writeln;
for i := 1 to m-1 do       
for j := 1 to m-i do       
    if B[j] < B[j+1] then begin     
           k := B[j];           
    B[j] := B[j+1];         
      B[j+1] := k       
    end;         
  write('Массив после сортировки: ');     
      for i:=1 to m do begin 
write(B[i]);
 write(' '); 
end; 
end.
0,0(0 оценок)
Ответ:
spaceman666
spaceman666
18.03.2022 10:48
Uses Crt;
const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of real;
i,j,k,c:integer;
s:real;
begin
clrScr;
    for i:=1 to n do
        begin
            writeln;
               for j:=1 to m do
                  begin
                     a[i,j]:=random(30);
                      write(a[i,j]:4);
                  end;
          end;
writeln;
for j:=1 to m do
  begin
      s:=0;k:=0;
          for i:=1 to n do
               if a[i,j]mod 2<>0 then
                   begin
                       s:=s+a[i,j];
                        k:=k+1;
                   end;
      if k<>0 then
         begin
            c:=c+1;
            b[c]:=s/k;
         end;
     end;
for i:=1 to c do
   write(b[i]:8:2);
readkey;
end.

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