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,b,x,c,d:real; begin ClrScr; writeln('Введите кол-во нераспроданных билетов бизнес класса (а) и кол-во нераспроданных билетов эконом. класса (б) '); readln(a,b); // Узнали, сколько осталось нераспроданных билетов разных классов. c:=160*0.75-b; // Узнали, сколько билетов продано эконом класса. d:=160*0.25-a; // Узнали, сколько билетов продано бизнес класса. x:=d+c/2; writeln('Для того, чтобы узнать сколько денег получила авиакомпания за этот рейс нужно число х: ',x,' умножить на цену билета бизнес класса, либо умножить на удвоенную цену одного билета эконом класса'); readln end.
Или ответ: число которое выведет программа х, например, ответ: 15х
int main () {
int x, sum=0;
scanf ("%d", &x);
while (x!=0) {
sum+=x%10;
x/=10;
}
return 0;
}