Pascal ABC Из слова "вертикаль" путем вырезок и склеек его букв получить слова "тир" и "ветка"
<span>Ввести один из символов "Y" или "n". При вводе "Y" вывести на экран слово "Да", а при вводе "n" слово "нет" Pascal ABC </span>
<span>Даны строки а="вариант",b= "Высоко", с = "макароны". Получить слово "соковарка" Pascal ABC </span>
Pascal ABC Вывести текст файла, заменив цифры от 0 до 9 на слова "ноль", "один"..."девять", начиная каждое предложение с новой строки
<span>Из слова "яблока" путем вырезок и склеек получить слово "блок" и "ока" Pascal ABC </span>
Pascal ABC Составить программу, которая бы выводила на экран заданное число и подпись в зависимости от числа "год", "года" или "лет"
Pascal ABC Пожалуйста,составьте программу, которая из слова "ПРОГРАММА" составляет слова: "ГРАММ","РОГА","ГОРА"
<span>Из слова "апельсин" путем вырезок и склеек его букв получить слово "спаниель" Pascal ABC </span>
Var a:array[1..100] of integer;
<span>i,n:integer; </span>
<span>begin </span>
<span>writeln('Введите количество элементов массива'); </span>
<span>read(n); </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if i mod 3 = 0 then a[i]:=0; </span>
<span>end; </span>
<span>for i:=1 to n do write(a[i],' '); </span>
<span>end.</span>
Const
s='вернисаж';
begin
Writeln(s[3]+copy(s,1,2)+Copy(s,4,2)+s[2]);
Writeln(Copy(s,6,3)+s[7]);
Writeln(s[4]+Copy(s,2,2)+s[1])
end.
<em><u>Результат выполнения программы:</u></em>
рвение
сажа
нерв
Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
Такой вид информации называется осязанием