Var a,b,c:integer;
begin
writeln('Введите номер секунды');
readln(a);
b:=a div 3600;
c:=(a - 3600*b) div 60;
writeln(b,' ч ',c,' мин');
<span>end.</span>
Ответ:
#include <iostream>
int main()
{
float Number[10];
for (int i = 0; i < 10; i++) {
std::cin >> Number[i];
}
for (int i = 0; i < 10; i++) {
for (int j = 0; j < 10; j++) {
if (Number[i] < Number[j]) {
float temp = Number[j];
Number[j] = Number[i];
Number[i] = temp;
}
}
}
for (int i = 0; i < 10; i++) {
std::cout << Number[i] << "\t" ;
}
return 0;
}
Объяснение:
Работает правильно, но возможно был допущен недочёт в алгоритме, для сортировки использовал пузырьковую сортировку.
12,7 * (600/2,54) = 3000 пикс ширина
12,7 * (1200/2,54) = 6000 пикс высота
3000 * 6000 * 4 = 72000000 бит / 8 / 1024 / 1024 = ~ 8 мегабайт
program raf105;
var
dr: real;
day: integer;
a,b: boolean;
begin
dr:= 0.75;
while not(a) or not(b) do
begin
day:= day+1;
dr:= dr + dr/100*160;
dr:= dr - 0.6;
if day = 6
then begin
writeln('а) Через 6 дней в установке будет ',dr:0:2,' т. дрожжей');
a:= True;
end;
if (dr >= 9) and not(b)
then begin
writeln('б) Через ',day,' суток масса дрожжей достигнет порога 9 т.');
b:= True;
end;
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>