Var
s:string;
b:char;
i,n:integer;
begin
writeln('Введите текст');
readln(s);
writeln('Введите символ');
readln(b);
n:=length(s);
for i:=1 to n do
if s[i]=' ' then
s[i]:=b;
writeln(S);
<span>end.</span>
Задание 2, 1:
program zadacha1;
uses crt;
var x, y: real;
begin
clrscr;
write('enter x: ');
readln (x);
x:=(x*pi)/180; // в Паскале используется измерение в радианах, здесь мы
// переводим из градусов (так как мы задаем значение в градусах) в радианы
y:=sqr(cos(x))+sqr(sin(x))*sin(x);
writeln ('y=', y:0:4);
readkey;
<span>end.
2
program zadacha2;
uses crt;
var y: real;
begin
clrscr;
y:=sqr(sin(pi))+ pi/2;
writeln ('y=', y:0:4);
readkey;
<span>end.
</span>
3
program zadacha3;
uses crt;
var x, y: real;
begin
clrscr;
write ('enter x: ');
readln (x);
x:=(x*pi)/180;
y:=sin(x)/cos(x) + 0.25;
writeln ('y=', y:0:4);
readkey;
end.
4
program zadacha4;
uses crt;
var x, y, z: integer;
begin
clrscr;
write ('enter x, z');
readln (x, </span><span>z</span>);
y:=abs(x)+2*abs(z);
writeln ('y=', y:0:4);
readkey;
end.
Вариант с небольшой автоматизацией
Четных чисел 3: 2,4,6. Одно из них можно выбрать 3 -мя способами. Из оставшихся 6 можно составить 6! = 720 перестановок, следовательно, всего перестановок - 720*3 = 2160
Объяснение:
program kek;
var
l1, r1, l2, r2, x: Integer;
begin
read(l1, r1, l2, r2, x);
if ((x-l1)*(r1-x) >= 0) then writeln('Первый отрезок.');
if ((x-l2)*(r2-x) >= 0) then writeln('Второй отрезок.');
end.