Program n1;
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*b>c*d) then
begin
a:=a*2;
b:=b*2;
end else begin
c:=c*2;
d:=d*2;
end;
write(a,' ',b,' ',c,' ',d);
end.
1.Бит
2.Что бы узнать сколько содержится байт,килобайт информации
3.Единицы измерения информации
=)
Пусть х - время в секундах.
Тогда
(1/3 * 60/8 мбайт/с * x) с - время за треть времени)
(2/3 * 90/8 мбайт/с * x) с - время за две третти времени
Тогда уравнение получается
1/3 * 60/8 * x + 2/3 * 90/8 * x = 9000
2,5x + 7,5x = 9000
10x = 9000
x = 900
Получается 900 секунд или 900/60 = 15 минут)
uses crt;
type TRec = Record
FIO: String[20];
TEL: String[7]
end;
var rec: TRec; i:integer;
who:string; flag:boolean;
a: array [1..20] of TRec;
begin
a[1].FIO := 'Иванов Петр';
a[1].TEL := '+374844';
a[2].FIO := 'Крылова Света';
a[2].TEL := '+373129';
a[3].FIO := 'Соловей Иван';
a[3].TEL := '+370929';
//создай дальше до 10 сама
write('Write fio '); readln(who);
for i:=1 to 3 do
begin
if a[i].FIO = who then
begin
writeln('Номер ',who,' = ',a[i].TEL) ;
flag:=true;
end
else
flag:=false;
end;
if flag=false then
writeln('cannot find ',who);
readln;
end.