Var x1, x2, y1, y2, s: real;
begin
read(x1, y1, x2, y2);
s:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
write(s:0:3);
end.
8)(b∧f)∨(c∧f)∨(f∧(¬a))∨(a∧(¬b)∧(¬c)∧(¬f))
Var x,y:real;
begin
read(x,y);
writeln((x+y)/2);
end;
Var
i,j:integer;
begin
Write(' ');
for i:=1 to 9 do Write(' ',i,' ');
Writeln;
Writeln('------------------------------');
for i:=1 to 9 do begin
Write(i:2);
for j:=1 to 9 do Write(i*j:3);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
1 2 3 4 5 6 7 8 9
------------------------------
1 1 2 3 4 5 6 7 8 9
2 2 4 6 8 10 12 14 16 18
3 3 6 9 12 15 18 21 24 27
4 4 8 12 16 20 24 28 32 36
5 5 10 15 20 25 30 35 40 45
6 6 12 18 24 30 36 42 48 54
7 7 14 21 28 35 42 49 56 63
8 8 16 24 32 40 48 56 64 72
9 9 18 27 36 45 54 63 72 81
<u><em>Замечание:</em></u> поскольку тут шрифт не приспособлен к поддержке формата компьютерных выдач, во вложении дана истинная картинка.
//Dev-C++ 4.9.9.2
//а
#include <iostream>
using namespace std;
const int n=10;
int main(){
int ar[n];
int arsub[n];
int m=0;
cout<<"Enter m:";
cin>>m;
cout<<"Enter array:"<<endl;
for(int i=0;i<n;i++)
cin>>ar[i];
for(int i=0;i<m;i++)
arsub[i]=ar[i];
for(int i=0;i<n-m;i++)
ar[i]=ar[i+m];
for(int i=0;i<m;i++)
ar[i+(n-m)]=arsub[i];
cout<<"Final array"<<endl;
for(int i=0;i<n;i++)
cout<<ar[i]<<' ';
cin.get();
cin.get();
return 0;
}
//б
#include <iostream>
using namespace std;
const int n=10;
int main(){
int ar[n];
int arsub[n];
int k,k1=0;
cout<<"Enter k:";
cin>>k;
cout<<"Enter array:"<<endl;
for(int i=0;i<n;i++)
cin>>ar[i];
for(int i=n-k;i<n;i++){
arsub[k1]=ar[i];k1++;}
for(int i=n;i>=k;i--)
ar[i]=ar[i-k];
for(int i=0;i<k;i++)
ar[i]=arsub[i];
cout<<"Final array"<<endl;
for(int i=0;i<n;i++)
cout<<ar[i]<<' ';
cin.get();
cin.get();
return 0;
}