М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

4. составите программу, выводящую значение вещественной переменной х равное значениювыражения (a+b)/а, где а и b с клавиатуры. ! ​

👇
Ответ:
KekLol89
KekLol89
12.07.2020

program aaa;

var x,a,b:real;

begin

    writeln('Vvedite a');

    readln(a);

    writeln('Vvedite b');

    readln(b);

    x:=(a+b)/a;

    writeln('x=',x);

    readln

end.

4,5(37 оценок)
Открыть все ответы
Ответ:

Для начала заводим переменную счетчик для подсчета количества четных и нечетных .

var count,count2:integer;

Далее в теле цикла с массивом, после его вывода добавляем условие if then else

if a[i].IsEven then count+=1 else count2+=1

Т.е. сам цикл будет выглядить так

for i := 1 to n do

 begin

   a[i] := Random(1, 50);

   Write(a[i], ' ');

   if a[i].IsEven then Count += 1 else Count2 += 1;

end;

Вместо a[i].IsEven можно использовать not Odd(a[i]) или уже a[i] mod 2 = 0

Ну а далее уже вывод количеств четных и нечетных

Можно сделать все еще проще.

begin

 var a := ArrRandom(20, 1, 50);

 Println('Четных ', a.Where(z -> z mod 2 = 0).Count, 'Нечетных ', a.Where(z -> Odd(z)).Count);  

end.

4,6(42 оценок)
Ответ:
Tinochka173
Tinochka173
12.07.2020

Выполнить сложение 1010*2+1101*2  = 10111*2

Выполнить вычитание 101011*2-1101*2  = 11110*2

Выполнить умножение 1111*2×1101*2  = 11000011*2

Выполнить деление 010111*2:001*2 = 1111.11111111*2

Объяснение:

Выполнить сложение 1010*2+1101*2

.    

+ 1 0 1 0

1 1 0 1

1 0 1 1 1

Окончательный ответ: 1010*2 + 1101*2 = 10111*2

Выполнить вычитание 101011*2-1101*2

. . .    

- 1 0 1 0 1 1

1 1 0 1

0 1 1 1 1 0

Окончательный ответ: 101011*2 - 1101*2 = 11110*2

Выполнить умножение 1111*2×1101*2

x     1 1 1 1

1 1 0 1

+     1 1 1 1

0 0 0 0  

1 1 1 1  

1 1 1 1    

1 1 0 0 0 0 1 1

Окончательный ответ: 1111*2 × 1101*2 = 11000011*2

Выполнить деление 010111*2:001*2

- 0 1 0 1 1 1 0 0 1

0 0 1    1 1 1 1 . 1 1 1 1 1 1 1 1

- 1 1              

0 0 1              

- 1 0 1            

0 0 1              

- 1 0 0 1            

0 0 1            

- 1 0 0 0 0          

0 0 1            

- 1 1 1 1 0          

0 0 1          

- 1 1 1 0 1 0        

0 0 1          

- 1 1 1 0 0 1 0        

0 0 1        

- 1 1 1 0 0 0 1 0      

0 0 1        

- 1 1 1 0 0 0 0 1 0      

0 0 1      

- 1 1 1 0 0 0 0 0 1 0    

0 0 1      

- 1 1 1 0 0 0 0 0 0 1 0    

0 0 1    

1 1 1 0 0 0 0 0 0 0 1 0  

Окончательный ответ: 010111*2 ÷ 001*2 = 1111.11111111*2

4,4(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ