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.
Компьютер необходим человеку, поскольку дает ему такие возможности, о которых мы раньше и представить себе не могли. и в повседневной жизни, и в производстве уже нельзя обойтись без компьютера. в общем смысле компьютер — это электронно-вычислительное устройство, способно выполнять многие функции вместо человека, причем во много раз быстрее. скорее всего, развитие производства и увеличение объема информации к необходимости создания компьютера как своего рода инструмента для и хранения этой информации. представьте себе, что вся информация, которая имеется в вашем персональном компьютере, будет храниться на бумажном носителе. да у вас весь дом будет завален бумагами! компьютер не только хранит информацию, но и обрабатывает и систематизирует ее. компьютер и всемирная сеть интернет предоставляют людям возможность общаться друг с другом, играть в любые игры, читать любимые книги, смотреть фильмы. порой от компьютера невозможно оторваться — даже для того, чтобы поесть. есть много способов похудения, а с появлением доступа в интернет персональный компьютер уже можно назвать одним из них. все области деятельности человека связаны с компьютером. компьютеру стало возможным создавать практически полностью автоматизированные производства, реализовывать многие проекты, ускорить и сделать более продуктивным процесс обучения и еще многое другое.
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.