|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.06.2018, 19:25 | #1 |
Регистрация: 21.06.2018
Сообщений: 3
|
Помогите пожалуйста перевести код с Pascal в С++
1)Var*
n:integer; Begin* Write('Введите число ');* Readln(n);* if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный'); End. 2)Var a:integer; begin * *readln(a); * * * if (a mod 10+a div*10>10) and(a mod 10+ a div 10<100) then * * * * * *writeln('двузначное') * * * else writeln('не двузначное'); if a mod 10+a div 10>a then * * writeln('больше') else writeln('не больше'); end. 3)Var n,s,a:integer; Begin Repeat write('Введите число N: ');readln(n); Until n in [10..99]; write('Введите число a: ');readln(a); s:=(n div 10)+(n mod 10); if s mod 3 = 0 then writeln('Сумма цифр кратна 3') else writeln('Сумма цифр не кратна 3'); if s mod a = 0 then writeln('Сумма цифр кратна ',a) else writeln('Сумма цифр не кратна ',a); End. |
21.06.2018, 19:52 | #2 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Вы не перепутали "помогите" и "сделайте за меня"?
Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п. http://www.programmersforum.ru/announcement.php?f=31 Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение. Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум, а не *.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите, пожалуйста, перевести код | tyoma_fatom | Помощь студентам | 2 | 08.04.2018 12:37 |
Помогите пожалуйста перевести код с Pascal в Си | Saruman! | Фриланс | 3 | 28.05.2017 23:13 |
Помогите пожалуйста перевести код программы из Паскаля в Делфи | svend | Помощь студентам | 3 | 20.03.2016 10:14 |
помогите перевести код Pascal в код Lazarus | Ляйсан9517 | Lazarus, Free Pascal, CodeTyphon | 13 | 22.05.2014 17:19 |