a | s | k
5,000000 | 0,000000 | 0,000000
9,000000 | 5,000000 | 1,000000
13,000000 | 14,000000 | 2,000000
17,000000 | 27,000000 | 3,000000
21,000000 | 44,000000 | 4,000000
25,000000 | 65,000000 | 5,000000
29,000000 | 90,000000 | 6,000000
33,000000 | 119,000000 | 7,000000
37,000000 | 152,000000 | 8,000000
41,000000 | 189,000000 | 9,000000
45,000000 | 230,000000 | 10,000000
49,000000 | 275,000000 | 11,000000
53,000000 | 324,000000 | 12,000000
K = 12.0
a | s | k
5,000000 | 0,000000 | 0,000000
9,000000 | 5,000000 | 1,000000
13,000000 | 14,000000 | 2,000000
17,000000 | 27,000000 | 3,000000
21,000000 | 44,000000 | 4,000000
25,000000 | 65,000000 | 5,000000
29,000000 | 90,000000 | 6,000000
33,000000 | 119,000000 | 7,000000
37,000000 | 152,000000 | 8,000000
41,000000 | 189,000000 | 9,000000
45,000000 | 230,000000 | 10,000000
49,000000 | 275,000000 | 11,000000
53,000000 | 324,000000 | 12,000000
K = 12.0
Поделитесь своими знаниями, ответьте на вопрос:
uses crt;
var a,i,j,n:integer;
begin
writeln('ВВедите кол. конфет в (кг)');
read(a);
n:=0;
if a>=10 then begin n:=n+ a div 10; a:=a-(a div 10*10); end;
if (a>=5) and (a<10) then begin n:=n+ a div 5; a:=a-(a div 5*5); end;
if (a>=1) and (a<5) and (a<10) then begin n:=n+ a div 1; a:=a-(a div 1*1); end;
writeln('Общее количество коробок = ',n);
end.
2 задача
uses crt;
var a,i,j,n:integer;
begin
writeln('Введите кол. суток');
read(a);
writeln('Количество часов в ',a,' сутках = ',a*24);
writeln('Количество минут в ',a,' сутках = ',a*24*60);
writeln('Количество секунд в ',a,' сутках = ',a*24*60*60);
end.