Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.
Можно использовать все эти команды:
Найдут тебя опять за дымкою тум<u>ано</u>й -<u />> <span>Найдут тебя опять за дымкою тум<u>анно</u>й
</span>Найдут тебя опять за дымкою тум<u>ан</u>ой -> Найдут тебя опять за дымкою тум<u>анн</u>ой
Найдут тебя опять за дымкою тума<u>ной</u> -> Найдут тебя опять за дымкою тума<u>нной</u>
Найдут тебя опять за дымкою тума<u>но</u>й -> Найдут тебя опять за дымкою тума<u>нно</u>й
Если не ошибаюсь, это она. либо там выведется кол.во яблок каждому ученику.
program ...;
var
n, a, k, y : integer;
begin
readln (y, k);
a:= y mod k
y:= y div k
writeln (a, y);
end.
<span>Структуру разветвляющегося алгоритма, так как будет задаваться условие.</span>
Я думаю что:сночало 1,потом 4, затем3, ну и наконец2