Ввести имя файла и изменить его на расширение ".exe". дописать : program qq; var s: string; n: integer; begin s: =('.txt'); read(s); n: =pos('.',s); pelete(s,n+1,3); s: =
Замечание: предполагается, что в имени файла нет ".". program qq; var s:string; begin writeln('Введите имя файла:'); readln(s); s:=copy(s,1,pos('.',s))+'exe'; writeln(s); end.
1) var a:array[1..100]of real; n,p,q,q1:real; i:integer; begin for i:=1 to 100 do begin read(a[i]); if a[i]>=0 then begin p:=p+a[i]; q:=q+1; end; if a[i]<0 then begin n:=n+a[i]; q1:=q1+1; end; end; writeln('positive:',p/q); writeln('negative:',n/q1); end.
2) uses crt; var n:real; i:integer; begin n:=0.5; write(' Pounds',' Kg'); writeln; for i:=1 to 20 do begin write (' ',n,' ', n*0.4); n:=n+0.5; writeln; end;
end.
3) uses crt; var x:integer; begin write(' x',' y'); writeln; for x:=-5 to 5 do begin write(x,' '); write(5*(x*x)-(2*x)+1); writeln; end; end.
#include <iostream> using namespace std; int main() { setlocale (0,""); int n1,n2,n3,p1,p2,p3; cout<<"введите количество учеников в каждом классе"<<endl; cout<<"1-"; cin>>n1; cout<<"2-"; cin>>n2; cout<<"3-"; cin>>n3; p1=n1/2; if (n1%2!=0) p1++; p2=n2/2; if (n2%2!=0) p2++; p3=n3/2; if (n3%2!=0) p3++; cout<<"для первого класса - "<<p1<<endl; cout<<"для второго класса - "<<p2<<endl; cout<<"для третьего класса - "<<p3<<endl; return 0; }
program qq;
var s:string;
begin
writeln('Введите имя файла:');
readln(s);
s:=copy(s,1,pos('.',s))+'exe';
writeln(s);
end.
Пример:
Введите имя файла:
Привет.txt
Привет.exe