Форум программистов, компьютерный форум, киберфорум
Наши страницы
Другие языки программирования
Войти
Регистрация
Восстановить пароль
 
MorioCutiro
0 / 0 / 0
Регистрация: 06.11.2017
Сообщений: 1
#1

Перевод программы из Паскаля в КуМир - Программирование

06.11.2017, 07:59. Просмотров 148. Ответов 0
Метки нет (Все метки)

перевод программы из паскаля в кумир
http://www.cyberforum.ru/other-lang/thread2147081.html
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt; 
const cf=['0'..'9']; 
bk=['a'..'z']; 
var s:array[1..3] of string; 
x:string; 
i:byte; 
begin 
clrscr; 
writeln('Введите в любом порядке с новой строки: '); 
writeln('- фамилию из малых латинских букв длиной до 49 символов'); 
writeln('- дату в формате ДД. ММ. ГГГГ'); 
writeln('- номер банковской карты, число из 6-14 цифр'); 
for i:=1 to 3 do 
readln(s[i]); 
if s[1][1] in cf then 
for i:=2 to 3 do 
if s[1] in bk then
begin 
x:=s[1]; 
s[1]:=s[i]; 
s[i]:=x;
end; 
if pos('.',s[2])=0 then
for i:=1 to 3 do 
if pos('.',s[i])>0 then
begin 
x:=s[2]; 
s[2]:=s[i];
s[i]:=x; 
end; 
writeln('Поля заполнены по порядку: '); 
for i:=1 to 3 do 
writeln(s); 
readln 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.11.2017, 07:59
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевод программы из Паскаля в КуМир (Программирование):

Перевод с Паскаля на КуМир
var st: string; i: integer; begin readln(st); for i:=1 to...

Перевод с Паскаля на Кумир - программирование
var a : array of integer ; n,i,k:integer; begin randomize; write('Введите...

Перевести из паскаля в кумир
var i, n: integer; s: real; begin write('n = '); read(n); ...

Перевести программу из паскаля в кумир
Var a: array of integer; i, k, max: integer; begin k:=1;for i:=1 to 10 do...

Перевести программу из паскаля в кумир
var ar: Array Of Real; i, j: Byte; k, n, m: Integer; mult:...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.11.2017, 07:59
Привет! Вот еще темы с решениями:

Перевести программу из паскаля в кумир
Program z1; uses crt; const nmax=20; var n,x,s,y,p,i:integer; A:array ...

[КуМир] Квадраты и кубы
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11,...

[КуМир] Двумерные массивы. Снова
Получить массив В(3), перемножая элементы 1-й строки и 2-го столбца матрицы...

[КуМир] Две одинаковые цифры числа
Ввести целое число и определить, верно ли, что в его записи есть ​две...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru