1.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
rewrite(f);
repeat
write('Введите день недели: ');
readln(s);
writeln(f,s);
write('Повторить (1-да, 0-нет)?');
readln(r);
until r=0;
close(f);
end.
Пример:
Введите день недели: понедельник
Повторить (1-да, 0-нет)?1
Введите день недели: вторник
Повторить (1-да, 0-нет)?1
Введите день недели: среда
Повторить (1-да, 0-нет)?0
Содержимое файла nedelya.txt:
понедельниквторниксреда
2.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
append(f);
repeat
write('Day of the week: ');
readln(s);
writeln(f,s);
write('Repeat (1-yes, 0-no)?');
readln(r);
until r=0;
close(f);
end.
Пример:
Day of the week: Thursday
Repeat (1-yes, 0-no)?1
Day of the week: Friday
Repeat (1-yes, 0-no)?1
Day of the week: Saturday
Repeat (1-yes, 0-no)?0
Содержимое файла nedelya.txt:
понедельник
вторник
среда
Thursday
Friday
Saturday
3.
var f:text; s:string;
begin
assign(f,'nedelya.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
close(f);
end.
Результат:
понедельник
вторник
среда
Thursday
Friday
Saturday
1.25 кб=1280 байт
байт=8 бит
1,25 кБ=10240 бит
В 10240 бит вместилось 2048 символов, потому что 10240 бит/2048 символов=5 бит/символ. 2^5=32
в итоге ответ: мощность алфавита 32 бита
Var i: integer;
begin
for i:=10 to 99 do
begin
if (i div 10 - i mod 10 > 3 ) then
print(i);
end
end.
Программа:
var n,k,i: integer;
begin
write('n = ');
readln(n);
// вычисляем число перестановок
k:=1;
for i:=1 to n do k:=k*i;
writeln('k = ',k);
end.
Пример:
n = 3
k = 6
