1. вычислить корни квадратного уравнения ax²+bx+c=0? заданного коэффициентами а, b, с (предполагается, что а не равно 0 и что дискриминант уравнения неотрицательный перевести в "паскаль"

Var a,b,c,x1,x2,d: real; begin read(a,b,c); d: =b*b-4*a*c; x1: =(-b-sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); writeln(x1,' ',x2); end.

Мини-сочинение на тему: «Мои друзья»

План:

1.Смысл дружбы.

2.Моя история знакомства с друзьями.

3.Классные друзья.

4.Самое лучшее лето в моей жизни.

5.День Рождения мечты.

6.Самое главное в жизни –это дружба.

Можно ли прожить без дружбы? Я уверенно заявляю, конечно же, нет. Без дружбы жизнь была бы скучной и бессмысленной, ведь именно она жить, а не существовать. Именно из-за этого я выбрал эту тему для сочинения, потому что у меня интересная история из жизни, как я нашел лучших друзей.

С ними я познакомился в 1 классе, мы дружим уже больше семи лет! С момента знакомства мы сдружились очень хорошо, никто не думал, что обычное знакомство приведет к такой длинной дружбе!

В начальной школе мы в основном играли в салки и другие подвижные игры вместе, а уже в средней школе мы друг другу с уроками, тестами, гуляли вместе и играли в компьютерные игры.

Начиная с третьего класса, я первый раз пошел играть в футбол с одним из моих лучших друзей, но может возникнуть вопрос: «Почему именно в третьем классе?» Дело в том, что все детство я не ходил в садик и проводил время один или с родственниками, но без друзей. Когда я пошел в школу, я получил то, чего очень давно желал– общения с ровесниками.

Два лета подряд мы ездили по всему городу на велосипедах, проводя на улице по 5-6 часов. Это было очень веселое времяпровождение, которое я никогда не забуду! Также мы часто встречались все вместе и играли в компьютерные игры. Мы даже создали собственную мини-команду! За все проведенное время вместе я понял, что мы прекрасная команда. Даже простая игра смогла показать, что мы идеально друг друга понимаем.

В сентябре я пригласил всех своих друзей на мой День Рождения. Ребята подарили мне настольную игру, о которой я давно мечтал. Мы сразу начали в нее играть. А потом настал самый долгожданный момент праздника: родители вынесли торт и мы все вместе задули свечи. Этот день мне запомнился надолго, ведь до этого дня я никогда не отмечал свой День Рождения в кругу своих близких, настоящих друзей.

Я считаю, что в жизни самое главное найти тех, кто сможет тебя поддержать, несмотря на все сложности в твоей жизни, выслушать или подбодрить в трудную минуту. Ведь, как говорил Аристотель: «Дружба-самое необходимое для жизни, так как никто не пожелает жизни без друзей, даже если бы он имел все остальные блага».

Я счастлив, что такие люди есть в моей жизни. Я очень дорожу нашей дружбой, и в дальнейшем буду делать все, чтобы она становилась еще крепче и продолжалась всю нашу жизнь!

//pascalabc v3.1

var s: string;

procedure repall(var s: string; wold, wnew: string);

var res: string;

    p, len: integer;

begin

  len: = length(wold);

  res: = '';

  while length(s) > 0 do begin

    p: = pos(wold, s);

    if p = 0 then begin res: = res + s; break; end;

    if p > 1 then res: = res + copy(s,1,p-1);

    res: = res + wnew;

    if p+len > length(s) then

          s: = ''

    else s: = copy(s,p+len,length(s));

  end;

  s: = res

end;

begin

  readln(s);

  repall(s, 'со', 'ту');

  writeln(s)

end.

тестовое решение:

сок сок сок кок пок

тук тук тук кок пок