Ответы на вопрос:
Вроде должна работать это 1 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.
Популярно: Информатика
-
ainura12a21.01.2021 07:22
-
GINVIC02.08.2021 02:38
-
debdh16.03.2021 08:01
-
Anyakeklol131404.11.2021 08:53
-
Марина1768115.08.2022 17:23
-
27sergey105.06.2022 16:29
-
Amy150305.09.2021 06:52
-
zska2511.10.2021 07:38
-
Artemo4ka12310.02.2021 11:57
-
gerasimovichninka20.05.2021 09:48