определить число, полученное выписыванием в обратном порядке цифр заданного натурального числа.

@Андрей! · Регистрация: 10.05.2010

Студворк — интернет-сервис помощи студентам

Даны 2 задачи:
1) определить число, полученное выписыванием в обратном порядке цифр заданного натурального числа.
2)Описать процедуру CodeText(Name,k), шифрующую текстовый файл с именем Name, выполняя циклическую замену каждой русской буквы на букву, расположенную в алфавите на k-ой позиции после исходной(0<k<11). Например, при k=3 "А" перейдет в "Г", "а" - "г", "Я" - в "В". букву "ё" в алфавите не учитывать, прочие символы файла не изменять. Используя эту процедуру и зная k, зашифровать1\расшифровать2 данный файл.

@кот Бегемот · 30.06.2010, 14:48

Сообщение от Андрей!

Даны 2 задачи:
1) определить число, полученное выписыванием в обратном порядке цифр заданного натурального числа.

Pascal

var
a,b:longint;
begin
readln(a);
repeat
b:=b*10+a mod 10;
a:=a div 10;
until a=0;
writeln(b);
readln;
end.

вторая задача - читай в важном шифрование, шифр Цезаря

@Андрей! 0 / 0 / 0 Регистрация: 10.05.2010 Сообщений: 5
		1
	определить число, полученное выписыванием в обратном порядке цифр заданного натурального числа. 30.06.2010, 13:16. Показов 5306. Ответов 1 Метки нет (Все метки) Даны 2 задачи: 1) определить число, полученное выписыванием в обратном порядке цифр заданного натурального числа. 2)Описать процедуру CodeText(Name,k), шифрующую текстовый файл с именем Name, выполняя циклическую замену каждой русской буквы на букву, расположенную в алфавите на k-ой позиции после исходной(0<k<11). Например, при k=3 "А" перейдет в "Г", "а" - "г", "Я" - в "В". букву "ё" в алфавите не учитывать, прочие символы файла не изменять. Используя эту процедуру и зная k, зашифровать1\расшифровать2 данный файл. 0

	30.06.2010, 14:48

Опции темы

определить число, полученное выписыванием в обратном порядке цифр заданного натурального числа.

Решение