1.
var x,y:integer;
begin
write('x = ');
readln(x);
if x>0
then y:=1
else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.
Пример:
x = -5
y = -1
2.
var a,b,c,x1,x2,d:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1 = ',x1,' x2 = ',x2);
end
else if d=0 then begin
x1:=-b/(2*a);
writeln('x = ',x1);
end
else writeln('Корней нет');
end.
Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3
3.
var a,b,c:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
if (a<=b)and(b<=c)
then begin
b:=a; c:=a;
end
else begin
a:=-a; b:=-b; c:=-c;
end;
writeln('a = ',a,' b = ',b,' c = ',c);
end.
Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2
Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5
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
var
a: array[1..10] of real;
b,c,d,f: integer;
begin
f:=1;
writeln('Введите 10 чисел');
for d:=1 to 10 do
begin
readln(a[f]);
if a[f]>0 then
c:=c+1;
if a[f]<0 then
b:=b+1;
f:=f+1;
end;
writeln('Положительных чисел ',' ',c);
writeln('Отрицательных чисел ',' ',b);
end.
Сначала посчитаем количество слов длины 13. Так как эти слова составлены лишь из 2 букв, то количество слов равно 2^13=8192
Теперь посчитаем количество палиндромов.
В палиндроме длины 13 достаточно знать первые 7 букв, чтобы восстановить оставшиеся 6 букв. Это значит, что всего палиндромов 2^7=128
Количество слов, не являющихся палиндромами, равно 8192-128=8064
//PascalABC.NET 3.2 сборка 1318
Var
SeNotExist:set of char=['0','1','2','3','4','5','6','7','8','9'];
ArrNotExist:array of char;
count,i:integer;
Num:string;
begin
readln(Num);
for i:=1 to length(Num) do
SeNotExist-=[Num[i]];
foreach var x in SeNotExist do
begin
inc(count);
setlength(ArrNotExist,count);
ArrNotExist[count-1]:=x;
end;
sort(ArrNotExist);
writeln(count);
ArrNotExist.Print(' ');
end.
Пример ввода:
81233214554
Пример вывода:
4
0 6 7 9
