avolodyaev
?>

ПО ИНФОРМАТИКЕ! ЭТО ОЧЕНЬ ВАЖНО У МЕНЯ ТЕСТ

Информатика

Ответы

fitzhu

program aaa;

const n=50;

var w, c, x, d10, d4, d1: integer;  

begin 

  writeln ('введите вес бандероли');

  readln (w);

  if w < = n

    then c: =10

    else  

        if w mod n = 0

          then c: =10+((w div n)-1)*5

          else c: =10+5+((w div n)-1)*5;

 

  d10: = c div 10;

  d4: = (c-10*d10) div 4;

  d1: = (c-d10*10-d4*4);

 

  writeln ('стоимость бандероли: ',c,' драхм');

  writeln;

  writeln ('для оплаты нужно не менее');

  writeln (d10: 10,' монет по 10 драхм');

  writeln (d4: 10,' монет по 4 драхмы');

  writeln (d1: 10,' монет по 1 драхме');

end.

результат работы программы:

введите вес бандероли       100

стоимость бандероли: 15 драхм

для оплаты нужно не менее

          1 монет по 10 драхм

          1 монет по 4 драхмы

          1 монет по 1 драхме

russstep
Отличная задачка, в одну строку.

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('S=',ReadSeqInteger(ReadInteger('n=')).Where(k->k<0).Sum)
end.

Пример
n= 8
34 -12 0 16 -5 -7 2 -9
S=-33

Пояснения
ReadInteger('n=') выдает подсказ 'n=' и организует ввод целого числа, мы обозначим его условно n.
ReadSeqInteger(n) обеспечивает получение с клавиатуры последовательности n целых чисел.
Эта последовательность проходит через фильтр .While(k->k<0), который пропускает только отрицательные числа.
Все, что через фильтр, будет просуммировано при
И осталось только вывести результат при тут_сумма)
Вот и все.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

ПО ИНФОРМАТИКЕ! ЭТО ОЧЕНЬ ВАЖНО У МЕНЯ ТЕСТ
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Марина566
kukoleva
MDubovikov73
Конычева-музей&quot;260
timonina29
kartyshkinaaa
nikitamihailov22095010
Кирьяков-Крикунов
Ubuleeva826
mistersoshnev354
ckiras9
kchapurina591
Присакарь520
Araevich
evrotrastop64