Program z1;
var s,k:longint;
Begin
Readln(s);
k:=trunc(sqrt(s));
Writeln(k);
End.
Ответ: г) <span>плавный переход одних цветов в другие</span>
Я думаю, что подойдет светло серый с оттенками красного... Наверное так
#include <iostream>
#include <math.h>
using namespace std;
int main() {
cout.precision(100);
double a, b, c, D, x1, x2;
cin >> a >> b >> c;
D=b*b-4*a*c;
/* if (D<0) {
cout << "the equation has no solutions in real numbers" << endl;
return 0;
}
if (D==0) {
cout << "x=" << -b/(2*a) << endl;
return 0;
}
Если что, это фрагмент программы для проверки D=0 и D<0. Если не нужен - просто сотри*/
D=sqrt(D);
x1=(-b+D)/(2*a);
x2=(-b-D)/(2*a);
if (x1<x2)
cout << "x1=" << x1 << endl << "x2=" << x2 << endl;
else cout << "x1=" << x2 << endl << "x2=" << x1 << endl;
return 0;
}
program raf105;
var
i,n: integer;
begin
write('Введите число: ');
readln(n);
write('Чётные: ');
for i:=1 to n do
if i mod 2 = 0
then write(i,' ');
writeln;
write('Нечётные: ');
for i:=1 to n do
if i mod 2 <> 0
then write(i,' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>