var f1,f2:text;
d,s,z,n:longword;
a,b,t,m,x:smallint;
begin
assign(f1,'input.txt');
reset(f1);
assign (f2,'output.txt');
rewrite(f2);
readln(f1,d,a,b,s,t);
if a>b then x:=a-b else x:=b-a;
if d mod s=0 then n:=d div s else n:=d div s+1;
if x mod t=0 then m:=x div t else m:=x div t+1;
z:=n+m;
write(f2,z);
close (f1);
close (f2);
end.
Var a, b, c, S1, fin: integer;
S1 := edit1.text;
a := copy(S1,1,1);
b := copy(S1,2,1);
c := copy(S1,3,1);
fin := a + b + c;
edit2.text := fin;
На нажатие кнопки добавить код.
1 дюйм = 2,54 см (для упрощения расчетов будем считать, что 1 дюйм = 2,5 см).
10 см * 10 см ≈ 4 дюйма * 4 дюйма
Количество точек сканированного изображения = 600*600*4*4
32 бита = 32/8 байт = 4 байта
Объем файла = 600*600*4*4*4 байт = 600*600*4*4*4/1024 Кбайт = 22500 Кбайт = 22500/1024 Мбайт ≈ 22 Мбайта