Надсистема- устройства вывода
Струйный принтер является разновидностью принтеров.
var
a, b, c: <em>real</em>;
begin
readln(a, b, c);
if (sqr(b) - 4 * a * c < 0) then
writeln('Нет решений')
else
if (sqr(b) - 4 * a * c = 0) then
writeln('x = ', (-1 * b) / (2 * a))
else
begin
writeln('x1 = ', (-1 * b + sqrt(sqr(b) - 4 * a * c)) / (2 * a));
writeln('x2 = ', (-1 * b - sqrt(sqr(b) - 4 * a * c)) / (2 * a));
end;
end.
<u><span>Три красных и один голубой!</span></u>
<span>Так как красных было больше чем голубых то слебовательно красных больше Двух. Тоесть или 3 или 4. Так как по условию мама купила не только шары красного цвета но и синего то заведомо хоть один синего цвета -> <span>3 красных и 1 голубой.</span></span>
Может задачу недопонял. Но вот что вышло:
uses crt;
var n,i,s:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
s:=s+i;
end;
writeln(s);
readkey;
<span>end.</span>
Var i,s:integer; st:string;
begin
st:='память';
s:=0;
for i:=1 to length(st) do s:=s+ord(st[i]);
writeln('s = ',s);
end.