profile
Размещено 5 лет назад по предмету Информатика от AirbusA321

1. Даны три числа a, b, c. Определить, какое из них равно d. Если равных d чисел нет, то найти максимальное из d-a, d-b, d-c. Примеры: • Вход: 10 4 15 4 Выход: второе число равно 4 • Вход: 5 13 9 7 Выход: максимальная разность 2. 2. Составить программу, которая при введенном возрасте человека правильно печатает: «Вам х лет (год, года)!». Например: • Вход: 44 Выход: Вам 44 года! • Вход: 31 Выход: Вам 31 год! • Вход: 11 Выход: Вам 11 лет! 3. Одной банки краски хватает на покраску x м2 площади. Забор имеет форму прямоугольника: высота а м, длина b м. Сколько целых банок краски необходимо приобрести, чтобы покрасить забор? Вход: х=5 а=3 b=200 Выход:120 Вход: х=3.35 а=2.5 b=12 Выход:9 4. Даны 2 числа. Если их сумма больше 10, то вывести на экран их удвоенное произведение, а иначе большее из чисел заменить их суммой, а меньшее разностью. Вход: 25 -8 Выход: -400 Вход: 5 3 Выход: 8 2

  1. Ответ на вопрос
    Ответ на вопрос дан Giammy
    // PascalABC.NET 3.3
    // Cборка 1590 от 03.12.2017

    1)
    begin
      var (a,b,c):=ReadInteger3('Введите a,b,c,d-> '); var d:=ReadInteger;
      if a=d then begin Println('Первое число равно',d); exit; end;
      if b=d then begin Println('Второе число равно',d); exit; end;
      if c=d then begin Println('Третье число равно',d); exit; end;
      a:=d-a; b:=d-b; c:=d-c;
      var max:=max(max(a,b),c);
      Println('Максимальная разность->',max);
    end. 

    2)
    begin
     var a:=ReadInteger('Введите возраст->');
     if (a mod 10=1) and (a<>11) 
       then writelnformat('Вам {0} год',a)
       else
          if (a mod 10=2) or (a mod 10=3) or (a mod 10=4) 
            then writelnformat('Вам {0} года',a)
            else writelnformat('Вам {0} лет',a);
    end.

    3)
    begin
     var (x,a,b):=readreal3('Введите x,a,b->');
     WritelnFormat('Нужно приобрести {0} банок краски',Round((a*b)/x));
    end.

    4)
    begin
     var (a,b):=readreal2('Введите a,b->');
     if a+b>10 
       then println(2*a*b)
       else 
         if a>b 
           then
            Println(a+b,a-b)
           else
            Println(a-b,a+b);
    end.

     
      
    1. Ответ на вопрос
      Ответ на вопрос дан Giammy
      P.S в 4 можно было короче, но чет я тупанул и лень переделывать было
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
Никита081
Математика - 5 лет назад

Сколько здесь прямоугольников

Alinashastova
История - 6 лет назад

Какое управление было в древнейшем риме? как звали первого и последнего из царей рима?

diankayusupova3
Литература - 6 лет назад

Уроки французского ответе на вопрос : расскажите о герое по следующему примерному плану: 1.почему мальчик оказался в райцентре ? 2.как он чувствовал себя на новом месте? 3.почему он не убежал в деревню? 4.какие отношения сложились у него с товарищами? 5.почему он ввязался в игру за деньги? 6.как характеризуют его отношения с учительницей ? ответе на эти вопросы пожалуйста ! сочините сочинение пожалуйста

tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

pakhotnov228
Русский язык - 6 лет назад

Переделай союзное предложение в предложение с бессоюзной связью. 1. океан с гулом ходил за стеной чёрными горами, и вьюга крепко свистала в отяжелевших снастях, а пароход весь дрожал. 2. множество темноватых тучек, с неясно обрисованными краями, расползались по бледно-голубому небу, а довольно крепкий ветер мчался сухой непрерывной струёй, не разгоняя зноя 3. поезд ушёл быстро, и его огни скоро исчезли, а через минуту уже не было слышно шума

ggg3288
Русский язык - 6 лет назад

помогите прошу!перепиши предложения, расставляя недостающие знаки препинания. объясни, что соединяет союз и. если в предложении один союз и, то во втором выпадающем списке отметь «прочерк».пример:«я шёл пешком и,/поражённый прелестью природы/, часто останавливался».союз и соединяет однородные члены.ночь уже ложилась на горы (1) и туман сырой (2) и холодный начал бродить по ущельям.союз и соединяет:1) части сложного предложенияоднородные члены,2) однородные членычасти сложного предложения—.поэт — трубач зовущий войско в битву (1) и прежде всех идущий в битву сам (ю. янонис).союз и соединяет:1) части сложного предложенияоднородные члены,2) ​

Аккаунт удален
Физика - 6 лет назад

Вокруг прямого проводника с током (смотри рисунок) существует магнитное поле. определи направление линий этого магнитного поля в точках a и b.обрати внимание, что точки a и b находятся с разных сторон от проводника (точка a — снизу, а точка b — сверху). рисунок ниже выбери и отметь правильный ответ среди предложенных.1. в точке a — «от нас», в точке b — «к нам» 2. в точке a — «к нам», в точке b — «от нас» 3. в обеих точках «от нас»4. в обеих точках «к нам»контрольная работа по физике.прошу,не наугад важно

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.