Var h,v,t,t1:real; i:integer;
begin
v:=200/60; // м/мин
t:=0;
h:=3000;writeln(' h t');
for i:=1 to (4200-3000) div 100 do
begin
t1:=100/v;
t:=t+t1;
h:=h+100;
writeln(h:4:0,' ',t:5:1);
v:=v*0.9;
end;
writeln(t:5:1,' мин');
end.
Результат:
<span> h t
3100 30.0
3200 63.3
3300 100.4
3400 141.5
3500 187.2
3600 238.1
3700 294.5
3800 357.2
3900 426.9
4000 504.4
4100 590.4
4200 686.0
686.0 мин</span>
Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.
*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;
предположим, что в начальном тексте было Х страниц, тогда:
Х*32*64*2 - Байт = 4*Х Кбайт весил текст
4Х=2 Мбайт = 2048Кбайт(по условию)
Х=512 Страниц
Значит в отредактированном - 512-2 = 510 Страницы
510*32*64*2=2088960 Байт = 2040 Кбайт
НЕ является методом классификации : г) структурный
Явно записана последовательность байтов. Забросил их на лист Excel (этот лист я приложил здесь, смотри под решением), преобразовал в символы по кодовой таблице Windows и составил символы вместе.
Получился следующий текст:
У нас завелись предатели родины. В связи с этим мы вынуждены изменить систему шифрования
