Классный час
Белое солнце пустыни
Ответ:
Объяснение:
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.
Реализация:
Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.
Пока это не очень серьёзно,но надо быть на стороже,т.к у меня тоже асус и был похожий случай,я не следила,перенагружала зарядку и теперь батарея держит лишь 5 мин!