1)
Program Pr1;
uses crt;
var x,i,n:integer;
begin
clrscr;
readln(n);
x:=1;
for i:=1 to n do x:=x*i;
writeln(x);
end.
2)
Program Pr1;
uses crt;
var x,y:real;
Begin
clrscr;
readln(x,y);
writeln(Exp(y*ln(x)));
end.
3)
Program Pr1;
uses crt;
var mas:array[byte] of integer;
i,n,c,b:integer;
Begin
clrscr;
writeln('Vvedite kol chisel');
readln(n);
c:=0;b:=1;
for i:=1 to n do begin
writeln('vvedite ',i,' chislo ');
readln(mas[i]);
end;
For i:=1 to n do if mas[i]<0 then c:=c+1
else b:=b*mas[i];
writeln('Chislo otrizateln. ',c,' Proizvedenie polojiteln ',b);
end.
4)
Program Pr1;
uses crt;
var x,y,i:integer;
Begin
clrscr;
readln(x);
y:=0;
for i:=100 to 999 do if i>x then begin
writeln(i);
y:=y+1;
end;
writeln('Vsego ',y);
end.
1) блок информации на внешнем запоминающем устройстве компьютера, имеющий определённое логическое представление
2) имя файла состоит из его имени и из его расшерения
3) имя файла задаёт пользователь
4)расширение файла адается программой автоматически при его создании
5)256 без расширения
6)3 Пример: .doc
8)В процессе форматирования диск разбивается на 2 области: Область хранения файлов и Каталог
10)[буква диска:]/ или
[буква диска:]\ или or
\\[имя сервера]\
примечание: для команды CD, / treated as relative path (same as [буква диска:].\) / или \ (примечание: для команды CD, / treated as relative path (same as .\)) .. C:\user\docs\Letter.txt
A:Picture.jpg
\\Server01\user\docs\Letter.txt
Y=0
1) 0+1=1 и так девять раз
1+1=2
2+1=3
3+1=4
4+1=5
5+1=6
6+1=7
7+1=8
8+1=9
ответ:9
2) Здесь вместо значений подставлям цифры,получается
C:=7+5*3=22
A:=22:2*5=55
ответ: 55