Задать вопрос!

Задать вопрос!

Все категории

Игорь Тол

4 года назад

11

Помогите пожалуйста, вообще завал

Помогите пожалуйста, вообще завал

Информатика

1 ответ:

Ulrich9994 года назад

0 0

PYTHON
Буде напечатано 173

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

На языка Паскаль. С клавиатуры вводятся целые числа a, b и c. Если а*b больше, чем с2-b, тогда выведите а+b, в противном случае

Валерия Балашова

Var
a,b,c:Integer;
Begin
Read(a,b,c);
if (a*b > c*2-b) then Writeln(a+b)
else Writeln(b+c);
end.

0 0

4 года назад

Напишите программу, решающую любое квадратное уравнение. Паскал

Deviza

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.

0 0

4 года назад

Запишите число 5 BC(16) в десятичной системы счисления

Мария Удот [7]

5BC₁₆=5*16²+B*16¹+C*16⁰=1280+176+12=1468₁₀

0 0

4 года назад

Чтобы размножить фрагмент изображения нужно

kasior [153]

<span>выделить его, а затем переместить при одновременно нажатых левой кнопке и клавише ctrl</span>

0 0

3 года назад

Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h. Результат представить в виде таблицы, первый с

Галина Драка

uses crt;
var a,b,h: real;

function f(x: real): real;
begin
f:=x*cos(1/x)+2;
end;

begin
write('a: ');
read(a);
write('b: ');
read(b);
write('h: ');
read(h);
writeln('Полученный результат:');
writeln(' x | f(x) ');
while a<b do
begin
writeln(a:5:4,'|',f(a):5:4);
a:=a+h;
end;
end.

0 0

1 год назад