Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.03.2017, 15:47   #1
anasttb
Пользователь
 
Регистрация: 24.02.2017
Сообщений: 32
По умолчанию Помогите,пожалуйста,реализовать данную программу с помощью функции.

Код:
var a,b,c,i,k:integer;
 m: array[0..10000] of integer; 
begin 
k:=0; 
readln(a);
 repeat 
b:=a mod 2;
k:=k+1; 
m[k]:=b; 
c:=a div 2; 
if c>=2 then
a:=c; 
until c<2; 
write(c); 
for i:=k downto 1 do write(m[i]);
end.

Последний раз редактировалось Arigato; 22.03.2017 в 18:21.
anasttb вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как реализовать данную программу? Vitami Общие вопросы C/C++ 3 31.10.2016 10:39
Помогите пожалуйста написать программу, использующую структуры и выполняющую данную задачу olesya23 Помощь студентам 0 03.05.2016 12:27
подкажите как реализовать данную программу Shab Общие вопросы C/C++ 0 24.11.2010 12:43
Задачка Excel с помощью функции ЕСЛИ,помогите пожалуйста. Tsss Microsoft Office Excel 6 19.04.2009 15:05
Помогите реализовать данную задачу ==Spider== Работа с сетью в Delphi 2 15.12.2007 11:25