составьте программу которая а)выполняет операцию сцепления трех введенных с клавиатуры символов б)выполняет операцию сцепления трех введенных с
5-9 класс
|
клавиатуры символов и выводит результат сравнения на экран. например 'a'<'б', 'д'='д, 'я'>'ы' в) выполняет сравнение двух введенных с клавиатуры символов и выводит их на экран в порядке вохрастания их кодов
а), б)
var a, b, c: char;
begin
writeln('Введите 3 символа');
readln(a, b, c);
writeln('Результат сцепления: ', a+b+c);
if a>b then writeln(a,'>', b);
if a>c then writeln(a,'>', c);
if a=b then writeln(a, '=', b);
if a=c then writeln(a, '=', c);
if a<b then writeln(a, '<', b);
if a<c then writeln(a, '<', c);
if b>c then writeln(b, '>', c);
if b<c then writeln(b, '<', c);
end.
в)
var a, b: char;
begin
writeln('Введите 2 символа');
readln(a, b);
if a>b then writeln(b,' ', a);
if a<b then writeln(a,' ', b);
if a=b then writeln(a,' ', b);
end.
Другие вопросы из категории
3. Знайдіть помилки у наведених фрагментах програми, запишіть фрагмент правильно, пояснивши суть помилки:
а) x:=1; a:=81;
for i:=1 downto 10 do
begin
x:=x*i;
a:=a+2*i;
end;
б) х:=1; y:=1;
repeat
y:=y*x+2;
x:=x-2
until x-12;
4. Визначте значення всіх змінних у результаті їх виконання.
а) x:=0; y:=1;
while y<4 do
begin
x:=x+y;
y:=y+1
end;
б) x:=0; i:=1;
repeat
i:=i+1;
x:=x+1/i;
until i>6;
5. Розробіть програму, яка виводитиме на екран значення квадратів та кубів натуральних чисел від 1 до n, де n>1 – натуральне число, значення якого задає користувач.
6. Розробіть програму, яка визначатиме суму парних чисел від 1 до 30.
а) сортировки в порядке возрастания годов издания книги;
б) сортировки по двум ключам: АВТОР и ГОД, исключая книги Беляева А.Р.;
в) удаления из БД «Домашняя библиотека» всех записей о книгах, стоящих на пятой полке и изданных до 1990 года.
Читайте также
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
2. Составить программу, которая позволяет заменить все гласные символом "*"
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.