|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Помогите перевести прогу с паскаля на Си |
|
C/C++ - Помогите перевести прогу с паскаля на Си
|
Новый участник Сообщения: 4 |
Профиль | Отправить PM | Цитировать
var n, t, i, j, s, p: integer; begin Readln(n, t); i := 0; while (i < n) do begin p := i; s := 0; while (p mod 10 <> 0) and (p div 10 <> 1) do begin s := s + (p mod 10); p := p div 10; end; if (s * s = t) then Writeln(i); inc(i); end; Readln; { TODO -oUser -cConsole Main : Insert code here } end. |
|
Отправлено: 18:37, 14-12-2011 |
Будем жить, Маэстро... Сообщения: 6694
|
Профиль | Сайт | Отправить PM | Цитировать Паскаль плохо знаю, предложу так, знатоки поправят. Лучше напишите что выполняет программа
|
------- Отправлено: 19:00, 14-12-2011 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Misanthrope Сообщения: 474
|
Профиль | Отправить PM | Цитировать Цитата Drongo:
|
|
------- Отправлено: 19:05, 14-12-2011 | #3 |
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать Вот такая задача: Даны натуральные числа n, t. Найти все натуральные числа, меньшие n, квадрат суммы цифр которых равен t.
|
Отправлено: 19:07, 14-12-2011 | #4 |
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать Чё та у меня не робит
я начал переводить дальше не знаю как сделать *#include <stdio.h> |
|
Последний раз редактировалось Drongo, 14-12-2011 в 21:58. Отправлено: 19:23, 14-12-2011 | #5 |
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать Цитата Hector:
Всё ровно не робит выдает 0 при любых значениях |
|
Последний раз редактировалось Drongo, 14-12-2011 в 22:03. Причина: Кросспостинг Отправлено: 19:46, 14-12-2011 | #6 |
Будем жить, Маэстро... Сообщения: 6694
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Hector:
Цитата Lesha_dan:
Цитата:
|
|||
------- Отправлено: 22:02, 14-12-2011 | #7 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - [решено] Помогите перевести в десятичный вид. | systeman | Программирование и базы данных | 3 | 07-12-2010 12:57 | |
[решено] Помогите перевести надпись в руководстве к материнской плате | Termo27 | Материнские платы и память | 2 | 22-11-2009 03:19 | |
Помогите перевести... | Disconnect | Выбор отдельных компонентов компьютера и конфигурации в целом | 4 | 17-10-2009 17:57 | |
ищу прогу помогите. | LINCOLN | Хочу все знать | 3 | 23-02-2009 15:35 | |
Все комманды для ПАСКАЛя. | Alekssej | Программирование и базы данных | 1 | 27-02-2004 10:14 |
|