Помогите решить ребус пжжжж даю 46 баллов

Знания

Информатика

1 ответ:

Оксана Евдокимова4 года назад

0 0

Мою рельсер
Мо+ю рельсы(убираем ы),сердце(убираем с,д,ц,е)

Читайте также

Вывести на экран все числа в промежутке от 1 до n. Которые делятся на 2,3 и 5

gomer1703 [20]

Var
i,n:integer;
begin
read(n);
for i := 1 to n do
if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
write(i,' ')
<span>end.</span>

0 0

1 год назад

I=10 байт K=40 ----------------- N-?

Владимир Бутаков [183]

I=k*i
10*8 бит=40*i бит
i=2 бита
N= $2^{i} = 2^{2}$ =4

0 0

3 года назад

8415 – 4162 + 2543 – 25?

MASTEERDOC [7]

8415-4162+2543-25=6771

0 0

4 года назад

Составьте программу, в которой осуществляется ввод двух целых чисел с клавиатуры и вывод на экран монитора значения их произведе

Микки116 [7]

Program n1;
var a,b: integer;
begin
readln(a,b);
writeln(a*b);
end.

0 0

4 года назад

помогите дорешать и поправить программу на паскалерешение биквадратного уравненияprogram bikkiv;varprocedure ur(var a,b,c,x1,x2)

КажмаВио

Var a,b,c,y1,y2,d,i:real;
begin
read(a,b,c);
d:=b*b-4*a*c;
if d>0 then
begin
y1:=(-1*b+sqrt(d))/(2*a);
y2:=(-1*b-sqrt(d))/(2*a);
if y1>=0 then
begin
writeln(sqrt(y1));
writeln(sqrt(y1)*-1);
end;
if y2>=0 then begin
writeln(sqrt(y2));
writeln(sqrt(y2)*-1);
end;
end else
if d=0 then
begin
y1:=(-1*b)/(2*a);
if y1>=0 then begin
writeln(sqrt(y1));
writeln(sqrt(y1)*-1);
end;
end
else
writeln('Корней нет');
<span>end.</span>

0 0

4 года назад