var a,b,c,d:real;
c1, c2, z1, z2:real;
begin
write('Введи числитель первой дроби: '); read(a);
write('Введи знаменатель первой дроби: '); read(b);
write('Введи числитель второй дроби: '); read(c);
write('Введи знаменатель второй дроби: '); read(d);
write(a + ' / ' + b + ' + ' + c + ' / ' + d + ' = ');
if(b = d) then begin
c1 := a + c;
write(c1 + ' / ' + b);
End else Begin
z1 := b * d;
c1 := (z1 / b) * a;
c2 := (z1 / d) * c;
z2 := c1 + c2;
write(z2 + ' / ' + z1);
end;
end.
Объяснение:
1)var
s1, s2: string;
i: byte;
begin
write('s1 = ');
readln(s1);//вводим слово S1
S2 := ''; //начальное значание слова s2 (пустая строка)
for i := 1 to Length(s1) do
if odd(i + 1) then S2 := S2 + S1[i];//если i - четно, то увеличиваем s2
writeln('S2 = ', S2)
end.
2)var
s, s1: string;
i: integer;
begin
i := 1;
s1 := '';
write('Введите предложение: ');
readln(s);
while i <= length(s) do
begin
if (s[i] = ',') and (i mod 2 <> 0) then
else s1 += s[i];
inc(i)
end;
writeln('Полученное предложение: ', s1);
writeln('Кол-во удаленных ",": ', length(s) - length(s1));
end.
{
if ((i % 2) >0 )
cout <<i<<";"<<endl;
}