// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var Bnk:=Arr(500,100,50,10);
var s:=ReadInteger('Сдача, руб:');
var Kol:=Arr(0,0,0,0);
for var i:=0 to 3 do begin
Kol[i]:=s div Bnk[i];
s:=s mod Bnk[i]
end;
if s<>0 then Writeln('Сдачу дать невозможно')
else begin
Writeln('Следует дать:');
for var i:=0 to 3 do
Writeln('банкнот по ',Bnk[i],' руб - ',Kol[i],' шт.')
end
end.
<u><em>Тестовое решение:</em></u>
Сдача, руб: 850
Следует дать:
банкнот по 500 руб - 1 шт.
банкнот по 100 руб - 3 шт.
банкнот по 50 руб - 1 шт.
банкнот по 10 руб - 0 шт.
var x:integer;
Begin
write('Введите число: '); read(x);
if(x mod 3 = 0) then write('Число кратно трем!') else
write('Число не кратно трем (остаток: '+x mod 3+')');
End.
Выражение не А следует за П принимает положительные значения на отрезке: -бесконечность...10 и 15..+бесконечность
Выражение Ку следует за Р принимает положительные значения на отрезках: - бесконечность ... 5 и 15 ... + бесконечность,
То есть разные значения эти выражения будут иметь на отрезке 5 .. 10 (первое выражение истинно, второе ложно), значит длина отрезка 5
2)Компьютер может исполнять алгоритмы,написанные человеком на одном из языков программирования и введенных в его память.
3)Объект, исполняющий алгоритм,-это исполнитель алгоритма.