<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var a:=1 to 9 do
for var b:=1 to 9 do
for var c:=1 to 9 do
if 100*a+10*b+c=5*a*b*c then Write(a,b,c,' ');
end.
<u>Результат</u>
175
1) 2847 * 512 = 1457664 байт объем дискеты
16 бит = 16 : 8 = 2 байт
48 КГц = 48000 Гц
1457664 : (2*48000) = 15,184 сек.
Ответ. На дискету поместится 15 сек. звука при заданны характеристиках.
2) Обычно 1 символ = 1 байт. Решим исходя из этого.
89 * 66 = 5874 символов или байт на 1 странице.
604 * 5874 = 3547896 символов или байт в словаре
3547896 : 1024 : 1024 = 3,38 Мбайт занимает словарь
3,38 : 1, 44 = 2,3 = 3 дискеты
Ответ. 3,38 Мбайт; 3 дискеты.
#include "iostream"
using namespace std;
int main(){
int secound =0;
int hh =0;
int mm =0;
int ss =0;
int ch[5];
cin >> secound;
hh = secound / 3600;
mm = secound/60 - hh * 60;
ss = secound - hh*3600 - mm *60 ;
if(hh >=24){
int b = hh / 24;
hh = hh - 24 *b;
}
ch[0] = hh;
if(mm< 10){
ch[1] =0;
ch[2] = ss;
}else
ch[1] = mm / 10;
ch[2] = mm - mm / 10 * 10;
if(ss< 10){
ch[3] = 0;
ch[4] = ss;
} else
ch[3] = ss /10;
ch[4] = ss - ss / 10 * 10;
cout << ch[0] << ':' << ch[1] <
#include<iostream>
using namespace std;
int main()
{
int A;
cin >> A;
int Min = A;
int Max = A;
while(A)
{
cin >> A;
if (Max < A && A!=0) Max = A;
if (Min > A && A!=0) Min = A;
}
cout <<"Min = "<<Min<<"\n";
cout <<"Max = "<<Max<<"\n";
cout <<"Min - Max = "<<Min-Max<<"\n";
return 0;
}
