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

4 года назад

Определить количество положительных чисел из 2 чисел, вводимых с клавиатуры

Знания

Информатика

1 ответ:

Pakohontas4 года назад

0 0

Ответ:

var

a, b: Real;

c : Integer;

begin

Write ('A, B = ');

ReadLn (a, b);

c := 0;

if a > 0 then

Inc (c);

if b > 0 then

Inc (c);

WriteLn ('Количество положительных = ', c);

ReadLn;

end.

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

Python Вычислить периметр и площадь прямоугольного треугольника по длинам а и b двух катетов.

mikhailoff [265]

a, b = (float(i) for i in input().split())
c = (a*a+b*b)**0.5
P = a + b + c
S = 1/2 * a * b;
print('P = ',P,'\nS = ',S)

0 0

4 года назад

ВЫПОЛНИТЕ ОПЕРАЦИЮ СЛОЖЕНИЯ НАД ДВОИЧНЫМИ ЧИСЛАМИ: 101010111+11100 И ДА РАСПИШИТЕ ВСЕ ПОДРОБНО

berd1972 [1]

101010111+11100=101110011

0 0

4 года назад

Прочитать ещё 2 ответа

Ответ на закадированое слово ДА

аллажук

Там спряталось слово ад

0 0

4 года назад

Найти сумму корней квадратных из трёхзначных натуральных чисел. Создайте прогу которая просчитывала это на ABCpascal

goodkupa [88]

Var
a,b,c : integer;
d,x1,x2,s : real;
 begin
writeln ('ax^2+bx+c=0');
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);

d := sqr (b) - 4 * a * c;
if d < 0 then
writeln ('Корней нет')
else
begin
x1 := (-b + sqrt (d))/(2*a);
x2 := (-b - sqrt (d))/(2*a);
if x1 <> x2 then
begin
writeln ('x1=',x1);
writeln ('x2=',x2);
s := x1+x2;
writeln ('s=',s);
end
else
writeln ('x=s=',x1);
end;
 end.

0 0

3 года назад

1. Запишите число 76 в восьмеричной системе счисления. 2. Запишите число 2618 в двоичной системе счисления.

Котеныш [364]

Ответ:

Восьмеричная: 76=114

Двоичная: 2618=101000111010

Объяснение:

Надеюсь помог вам.

0 0

4 года назад