Пятница, 29.03.2024, 13:45
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи в Паскале ( плменять местами ) (Поменять местами)
Задачи в Паскале ( плменять местами )
BrutalChewitsДата: Среда, 16.12.2009, 23:01 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Всем Привет . Помогите пожалуйста составить программку в Паскале , которая будет менять буквы местами .

№1

Нам Дано : DF | E | X
Нужно получить : XF | E | D

№2

Нам Дано : AC | DX | Y
Нужно получить : AY | DXC

Заранее спасибо smile

 
kostyrninДата: Пятница, 18.12.2009, 17:49 | Сообщение # 2
Лейтенант
Группа: Новичок
Сообщений: 11
[ 0 ]
Статус: Offline
прога меняет букву "а" на "о" может чем поможет
program stroka1;
uses crt;
var k,i,n: integer;
s: string;
begin
writeln('Введите строку:');
readln(s);
n:=length(s);
k:=0;
for i:= 1 to n do
if s[i]='a'
then
begin
k:=k+1;
s[i]:='o';
end;
if k=0
then write('Букв а в строке ', s, ' нет')
else write('Новая строка: ',s);
readln;
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи в Паскале ( плменять местами ) (Поменять местами)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024