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 of integer;
N,i,k:integer;
function f(a:integer):Boolean;
begin
if (a mod 2=0) then f:=True else
f:=False;
end;
BEGIN
k:=0;
writeln('Введите количество элементов массива');
readln(N);
SetLength(A,N);
writeln('Введите массив');
for i:=0 to N-1 do begin
read(a[i]);
if (f(a[i])=True) then k:=k+1;
end;
writeln('Количество чётных элементов массива = ',k);
end.
Вводите с клавиатуры кол-во элементов массива, а затем сам массив.
1)
begin
var n:=ReadLnInteger('Введите двузначное число: ');
writeln('Десятки: '+(n div 10));
writeln('Единицы: '+(n mod 10));
end.
2)
begin
var b:=ReadLnInteger('Введите размер в байтах: ');
writeln((b div 1024) + ' Кбайт и ' + (b mod 1024) + ' бит');
end.
3)
var n:=ReadLnInteger('Введите двузначное число: ');
writeln((n mod 10)*10+n div 10);
end.
4)
begin
var n:=ReadLnInteger('Введите трехзначное число: ');
writeln((n mod 10)*100+(n div 10 mod 10)*10+n div 100);
end.
5)
begin
var n:=ReadLnInteger('Введите количество секунд: ');
writeln('Количество полных минут, прошедших с начала последнего часа: ', N mod 3600 div 60);
writeln('Количество секунд, прошедших с начала последней минуты: ', N mod 60);
end.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Вводите:');
for var i:=1 to s.Length do s[:i+1].Println;
Writeln;
for var i:=s.Length downto 1 do s[:i+1].Println;
end.
<u>Пример</u>
Вводите: слово
с
сл
сло
слов
слово
слово
слов
сло
сл
с