Регистрация
зелемхан1
07.02.2023 16:53
Информатика
Есть ответ 👍

написать сообщение на тему роботы вокруг нас .

213
278
Посмотреть ответы 1

Ответы на вопрос:

likeex
likeex
4,6(94 оценок)
// pascalabc.net 3.2, сборка 1485 от 15.06.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger('кол-во красных, зеленых и синих кубиков: ',3);   a.sort;   var k: =a[0]*3; a[1]-=a[0]; a[2]-=a[0]; // тройки   if a[1]> 0 then begin       k+=a[1]*2; a[2]-=a[1]; // пары       end;   if a[2]> 0 then k+=1; // последний   writeln('максимальное количество в ряду равно ',k) end. пример кол-во красных, зеленых и синих кубиков: 8 2 5 максимальное количество в ряду равно 13

Популярно: Информатика