эскадра инопланетных летающих тарелок приблизилась к земле и решила высадиться на поле у фермера-уфолога васи. инопланетяне так ни разу не делали, но выбрали этого фермера потому, что он уже не первый раз заявлял, что они приземлялись на его поле и даже показывал следы от тарелок — замятую в форме круга пшеницу. но все люди считали, что вася чертит круги сам. инопланетяне посчитали, что действуя таким образом, их приземление останется незамеченным никем, кроме васи. а васе никто не поверит.
тарелки могут приземляться на поле только выстраиваясь в шеренги, параллельные сторонам поля. тарелки садятся на поле последовательно, причем посадка происходит, только если тарелке хватает места. тарелки могут касаться краев поля, друг друга, но при этом не могут накладываться друг на друга и выступать за поле. первая тарелка приземляется в любое место (если это возможно), последующие приземляются так, чтобы образовывать с уже приземлившимися шеренгу параллельную одной из сторон поля. у васи прямоугольное поле со сторонами a,b. известен радиус r тарелок инопланетян и их количество n. смогут ли инопланетяне приземлиться всей эскадрой?
// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var k:=Arr(1000,100,50,10); // массив с достоинствами купюр
var s:=ReadInteger('Введите сумму:'); // сумма к оплате
Writeln('Уплатить:');
var i:=0;
while s>0 do begin
var p:=s div k[i];
if p>0 then Writeln(p,' шт. достоинством ',k[i],' руб.');
s:=s mod k[i]; i+=1
end;
end.
Пример
Введите сумму: 1630
Уплатить:
1 шт. достоинством 1000 руб.
6 шт. достоинством 100 руб.
3 шт. достоинством 10 руб.
1) заходишь в МОЙ КОМПЮТЕР ищешь там папку, в которой эта программа и удаляешь эту папку полностью.
2)заходишь в МОЙ КОМПЮТЕР, находишь папку этой программы, там будет среди прочих файлов значёк (обычно похож на корзину для мусора) открываешь его, он тебя спросит: "Вы действительно хотите удалить такую-то программу?" нажимаешь "ОК".
3) если программа имеет вредоносный файл-вирус, то он может не давать удалить себя и выдавать ошибку при удалении. В таком случае стоит с антивирусника просканировать эту папку и удалить вирус, после этого можете удалять.