Program qq;
uses crt;
var
x1,x2,y1,y2,a,b,S,P:integer;
Begin
Readln(x1,y1,x2,y2);
a:=x2-x1;
b:=y2-y1;
S:=a*b;
P:=(a+b)*2;
Writeln(S,P);
Readkey;
End.
Const a=1.2; b=2; h=0.1;
var x,y:real; n,i:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
writeln(' № x y');
for i:=1 to n do
begin
x:=x+h;
y:=sqrt((x-1)/sin(1/x));
writeln(i:2,' ',x:3:1,' ',y:8:4);
end;
end.
Результат:
№ x y
1 1.2 0.5198
2 1.3 0.6567
3 1.4 0.7814
4 1.5 0.8992
5 1.6 1.0127
6 1.7 1.1232
7 1.8 1.2316
8 1.9 1.3385
9 2.0 1.4442
Ответ:
Всё очень просто. Смотри!
Объяснение:
1. Ответ: 5 файлов. Файлы имеют разрешение такие как jpeg., tif., doc. и т. д.
2. Папок 4. Папки не имеют разрешиний и в них хранятся файлы. Но они могут быть пустыми.
3. И путь. Нужно просто смотреть по порядку и записывать через слеш /.
Вот:
Е:/Байкал/Рыбы/Омуль. jpeg.
1) a
2) 5
3) 0
4) and
5) c
6) по идее d но не уверен
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.
