|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.04.2021, 20:26 | #1 |
Новичок
Джуниор
Регистрация: 08.04.2021
Сообщений: 2
|
Переписать программу с Паскаля на Си
uses crt;
var s:string; i:byte; yes:boolean; begin clrscr; yes:=true; writeln('Vvedite stroky'); readln(s); if not(length(s) in [1..26])or (pos('a',s)=0)then begin write('NET'); readln; exit; end; for i:=1 to length(s) do begin if i<>length(s) then if ord(s[i])-ord(s[i+1])<>-1 then yes:=false; end; if yes then writeln('DA') else write('NET'); readln end. |
09.04.2021, 10:36 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
А не соизволил бы, задаючи вопрос, исходник отформатировать и снабдить тегом CODE, а то читать такое полотенце рвотно. Даже минимальных усилий приложить ленятся...
Код:
Код:
Удалено цензурой Последний раз редактировалось digitalis; 09.04.2021 в 11:50. |
09.04.2021, 11:20 | #3 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
нет, там
Код:
Код:
достаточно чуть больше ограничить цикл Код:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 09.04.2021 в 11:24. |
09.04.2021, 11:49 | #4 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
Да, действительно.
Но в такой портянке разбираться - тоскливо. Потому и ... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите переписать программу с паскаля на с++ | KINDmen | Помощь студентам | 4 | 28.11.2018 12:32 |
переписать задачу с Паскаля в Visual C++ | Rexonik | Общие вопросы C/C++ | 10 | 05.12.2011 00:16 |
Переписать с Паскаля на С++ | gvilon | Общие вопросы C/C++ | 2 | 09.11.2011 22:54 |
Переписать с Паскаля на С++ | gvilon | Помощь студентам | 0 | 09.11.2011 22:13 |
Переписать задачу из паскаля на СИ | Drago56 | Общие вопросы C/C++ | 1 | 14.12.2010 17:40 |