ппц
program stroka;
var
s:string;
i:integer;
begin
write('Введите строку');
read(s);
i:=pos(':',s);
if i<>0 then
write(copy(s,1,i-1)) //выводим часть строки расположеную до ":"
else
write('В строке нет символа ":"');
readln;
readln;
end.
Turbo Pascal
- Автор теми NebsteR
- Дата створення
program stroka;
var
s:string;
i:integer;
begin
write('Введите строку');
read(s);
i:=pos(':',s);
if i<>0 then
write(copy(s,1,i-1)) //выводим часть строки расположеную до ":"
else
write('В строке нет символа ":"');
readln;
readln;
end.
Doter-Zadroter
Beyond Godlike.Holy Shit!
Пишу проги на Паскале практически любой сложности за сок 
Nalivai
•-.,__,,.-•*’°`’*•-.,
f1 me -)
1. Дано рядок. Вивести підрядок, розміщений між початком і першою крапкою рядка.
2. Дано зашифроване речення на російській мові*** і кодовий зсув k (0<k<10). Розшифрувати речення.
3. Знайти визначник матриці p[3*3] за допомогою розкладання за елементами будь-якого рядка або стовпчика.
4. Знайти добуток негативних елементів кожного рядка для матриць a(10,15) і b(15,12). Використовувати процедуру.
*** - Спосіб шифррування: циклічна заміна кожної букви на букву того самого регістра, розміщену в алфавіті на k-й позиції після шифрованої букви (наприклад, для k=2 ‘А’ перейде у ‘В’, ‘а’ - у ‘в’, ‘Б’ - у ‘Г’, ‘я’ - у ‘б’ тощо).
1. Дано рядок. Вивести підрядок, розміщений між початком і першою крапкою рядка.
2. Дано зашифроване речення на російській мові*** і кодовий зсув k (0<k<10). Розшифрувати речення.
3. Знайти визначник матриці p[3*3] за допомогою розкладання за елементами будь-якого рядка або стовпчика.
4. Знайти добуток негативних елементів кожного рядка для матриць a(10,15) і b(15,12). Використовувати процедуру.
*** - Спосіб шифррування: циклічна заміна кожної букви на букву того самого регістра, розміщену в алфавіті на k-й позиції після шифрованої букви (наприклад, для k=2 ‘А’ перейде у ‘В’, ‘а’ - у ‘в’, ‘Б’ - у ‘Г’, ‘я’ - у ‘б’ тощо).
A
AkeL.php
Guest
ты нормально условие растолкуй.
люди помогите кто нить!
Мне надо было написать программу:
"Создать текстовый файл fonotek.txt, содержащий сведения о музыкальных альбомах различных групп (название группы, название альбома, год выпуска, стиль). Удалить из файла все альбомы в стиле pop и techno. Переписать в другой файл информацию об альбомах в порядке убывания года выпуска."
Я вроде её написал, но она выдает ошибку!(
Пожалуйста посмотрите кто может в чем её ошибка!)
Мне надо было написать программу:
"Создать текстовый файл fonotek.txt, содержащий сведения о музыкальных альбомах различных групп (название группы, название альбома, год выпуска, стиль). Удалить из файла все альбомы в стиле pop и techno. Переписать в другой файл информацию об альбомах в порядке убывания года выпуска."
Я вроде её написал, но она выдает ошибку!(
Пожалуйста посмотрите кто может в чем её ошибка!)