1. program pr1; uses crt; var n,k,i,t:integer; begin clrscr; write('Введите целое число n='); readln (n); for i:=2 to n do begin t:=0; for k:=2 to n do if i mod k=0 then t:=t+1; if t=1 then write(i:3); end; readln; end.
2.
Program pr2; Var a, b: Integer;
Function NOD(a, b: Integer): Integer; Var tmp, r: Integer; Begin If b > a Then Begin tmp := a; a := b; b := tmp; End; tmp := a; While tmp > 0 Do Begin Result := tmp; tmp := tmp - b; End; End;
Объяснение:
1. Пусть у нас есть файл 'file.pas'
2. Получим случайное число при оператора random. К примеру, мы получили двузначное число 34.
3. Представим его литерной величиной '34'
4. При операции "склейка" получим новое имя файла:
'34'+'file.pas' = '34file.pas'
Листинг программы:
uses Crt;
var n: integer;
S1, S2, S3 : String;
begin
ClrScr;
Randomize;
S1:='file.pas';
n:= 10+random(90);
Str (n,S2);
S3:=S2 + S1;
Writeln (S1, ' ----> ',S3);
ReadLn;
end.
Реализация: