//C++ - язык програмирования(не Pascal)
#include <iostream> //чтобы выводить на экран
int main() //тело программы
{
int a,b; //те числа(объявление переменных)
std::cin>>a; //ввод первого числа
std::cin>>b; //ввод второго числа
std::cout<<((int)(a/b))<<std::endl; //(int)х - преобразовать х в целое число(отбросить //дробную часть)
//std::cout<< - вывод
//std::endl - переход на следующию строчку
system("PAUSE"); //чтобы программа сразу не завершалась
return 0;
}
// // - коментарий
P.S ответь на моё сообщение.
//Pascal ABC.NET 3.1 сборка 1219
Var
f:text;
max,min,p:real;
maxn,minn,n,i:integer;
ar:array of real;
s:string;
begin
max:=real.MinValue;
min:=real.MaxValue;
n:=0;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
begin
read(f,p);
inc(n);
setlength(ar,n);
ar[n-1]:=p;
if ar[n-1]>max then
begin
max:=ar[n-1];
maxn:=n-1;
end;
if ar[n-1]<min then
begin
min:=ar[n-1];
minn:=n-1;
end;
end;
close(f);
swap(ar[minn],ar[maxn]);
for i:=0 to n-1 do
if i<>n-1 then s:=s+floattostr(ar[i])+' '
else
s:=s+floattostr(ar[i]);
rewrite(f);
write(f,s);
close(f);
end.
Пример содержимого text.txt:
0 -2.1 1.1
Пример содержимого text.txt после работы программы:
0 1.1 -2.1