Разработайте программу, которая получает от пользователя целое число в диапазоне от 0 до 31 (предусмотреть проверку корректности данных) и выводит двоичную запись этого числа в виде строки из 5 символов "0" или "1". ответ - текст программы и фрагмент скриншота её работы в файле MS Word. Тестовые значения: Вход Выход 8 01000 13 01101 27 11011 ПОДСКАЗКИ Результат работы программы - переменная типа String, которая в начале программы равна "" - пустой строке. Если s - строка, равная, к примеру, "ABC", то оператор s = s & "D" превратит её в "ABCD", а s = "D" & s - в "DABC". для получения 5 двоичных цифр числа из указанного числа вам придётся 4 раза воспользоваться операцией вычисления остатка от деления на 2 и 4 раза - операцией целочисленного деления на 2. язык VisualBasic
Ответы
Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
begin
if (a mod 2 = 0)and(a<0) then k1:=k1+1;
if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
readln(a);
end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
then writeln('среднее арифметическое нечётных чисел = ',s/k2)
else writeln('в последовательности нет нечётных чисел');
end.
Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
begin
if (a mod 2 = 0)and(a<0) then k1:=k1+1;
if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
readln(a);
end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
then writeln('среднее арифметическое нечётных чисел = ',s/k2)
else writeln('в последовательности нет нечётных чисел');
end.
Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45
Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
begin
if (a mod 2 = 0)and(a<0) then k1:=k1+1;
if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
readln(a);
end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
then writeln('среднее арифметическое нечётных чисел = ',s/k2)
else writeln('в последовательности нет нечётных чисел');
end.
Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
begin
if (a mod 2 = 0)and(a<0) then k1:=k1+1;
if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
readln(a);
end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
then writeln('среднее арифметическое нечётных чисел = ',s/k2)
else writeln('в последовательности нет нечётных чисел');
end.
Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Напишите минимальное целое число х, для которого истинно высказывание: не(x<4) и (x<8
Автор: juliaipatova1739
Составьте систему команд исполнителя плейер, предна-значенного для прослушивания цифровой музыки.
Автор: Ахмедшина Трубников1249
Вкакой промышленности появился первый робот 18 букв
Автор: Savva1779
Запиши число 12674 в развёрнутом виде, начиная со старшего разряда.
Автор: Batishcheva
c++
#include <iosteam>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
int a, a1, a2, a3, a4;
cout<<"введите число в диапазоне 0 до 31"<<endl;
cin>>a;
a1=a/1000\
a2=a-(a/100\) /100;
a3=a-(a-(a/1000))/100)))/10;
a4=a-(a-(a-(a/1000)/100)/10);
cout<<a4<<a3<<a2<<a1<<endl;
}
Объяснение: