1. перетаскивание (из одного окна в другое, то есть из папки откуда в папку куда) 2. горячими клавишами (CTRL+C скопировать, или CTRL+X вырезать и CTRL+V вставить, в требуемое место, предварительно выбрав это место кликом) 3. через контекстное меню (там есть аналогичные пункты: "скопировать", "вырезать" и "вставить"... в некоторых случаях даже пункты "копировать в.." или "переместить в...") 4. через командную строку (путем написания команд "копирования" и "перемещения" с указанием путей... данный вариант может быть сохранен в виде исполняемого файла с расширением .bat для могоразовго и быстрого применения) 5. есть еще вариант копирования (в том числе резервного) с специальных программ и планировщика задач), но если это вопрос из теста школьной программы, то маловероятно что этот там рассматривается.
Program Vby_1; uses crt; var a,b,c:real; begin writeln('*** Alphaues is thinking... ***'); writeln('Ok, введите катеты: '); write('a= ');readln(a); write('b= ');readln(b); writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2); end.
Program Vby_2; uses crt; var a,b,h,t:real; begin writeln('*** Alphaues is thinking... ***'); writeln('Ok, введите данные: '); write('Одно основание = ');readln(a); write('Другое основание = ');readln(b); write('Высота = ');readln(h); t:=abs(a-b)/2; writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2); end.
Program Vby_3; uses crt; var s:integer; begin writeln('*** Alphaues is thinking... ***'); write('Ok, введите расстояние в сантиметрах: '); readln(s); write('Число полных метров = ',s div 100); end.
2. горячими клавишами (CTRL+C скопировать, или CTRL+X вырезать и CTRL+V вставить, в требуемое место, предварительно выбрав это место кликом)
3. через контекстное меню (там есть аналогичные пункты: "скопировать", "вырезать" и "вставить"... в некоторых случаях даже пункты "копировать в.." или "переместить в...")
4. через командную строку (путем написания команд "копирования" и "перемещения" с указанием путей... данный вариант может быть сохранен в виде исполняемого файла с расширением .bat для могоразовго и быстрого применения)
5. есть еще вариант копирования (в том числе резервного) с специальных программ и планировщика задач), но если это вопрос из теста школьной программы, то маловероятно что этот там рассматривается.
uses crt;
var a,b,c:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите катеты: ');
write('a= ');readln(a);
write('b= ');readln(b);
writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.
Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите данные: ');
write('Одно основание = ');readln(a);
write('Другое основание = ');readln(b);
write('Высота = ');readln(h);
t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.
Program Vby_3;
uses crt;
var s:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите расстояние в сантиметрах: '); readln(s);
write('Число полных метров = ',s div 100);
end.