Предмет: Информатика, автор: yogatabletka

Напишите программу, которая переводит число в 10-й с/с в 2-ую с/с через цикл while.


GOsha200877: питон?
yogatabletka: паскаль
yogatabletka: вроде бы mod и div нужны
GOsha200877: слушай
GOsha200877: ты знаешь КуМир что такое?
GOsha200877: это паскаль на русском
yogatabletka: да
yogatabletka: но именно pascalabc надо было
GOsha200877: ну короче тебе уже написали
yogatabletka: да, но спасибо за то что откликнулся

Ответы

Автор ответа: ArsRegen
1

Ответ:

#include "stdafx.h"

#include <iostream>

using namespace std;

 

int main() {

   setlocale(LC_ALL, "Russian");

   int n;

   cout << "Введите число" << endl;

   cin >> n;

   while (n > 0) {

   (n%2 == 0) ? cout << "0" : cout << "1";

   (n%2 == 0) ? n = (n) / 2 : n = (n-1) / 2;  

   }

   cout << endl;

   system("pause");

   return 0;

}

/////////////////////////////////////////////

var ch,new,st_10:integer;

begin

 writeln('Введи число');

 readln(ch);

 st_10:=1;

 while ch<>0 do

 begin

  new:=new+(ch mod 2)*st_10;

  ch:=ch div 2;

  st_10:=st_10*10;

 end;

 writeln('Число в двоичной системе сч.- ',new);

end.

Объяснение:

1)язык c++, 2) Паскаль, поставь лайк пожалуйста)


yogatabletka: а мне паскаль надо(
ArsRegen: лови
ArsRegen: var ch,new,st_10:integer;
begin
writeln('Введи число');
readln(ch);
st_10:=1;
while ch<>0 do
begin
new:=new+(ch mod 2)*st_10;
ch:=ch div 2;
st_10:=st_10*10;
end;
writeln('Число в двоичной системе сч.- ',new);
end.
yogatabletka: спасибо!
yogatabletka: как поставить лучший ответ?
GOsha200877: нужен второй ответ
yogatabletka: понятно
yogatabletka: вопрос что значит <>
Похожие вопросы