Ответы на вопрос:
Var x, y: string; begin write('введите слово x: '); readln(x); write('введите слово y: '); readln(y); if x[1] = y[length(y)] then writeln('буквы .') else writeln('буквы не .') end.
Популярно: Информатика
-
№1 решите лазерный диск может содержать 650 мбайт информации . определите сколько...
sonyapastuxova24.06.2023 02:58 -
Страница текста напечатанными машинки содержит приблизительно 30 строк в каждой...
irinamotorueva24.03.2022 15:09 -
Решите у меня ср, даю 40 б...
султик1221.03.2022 00:14 -
Запишите название устройства под номером 1 и 3...
mariy3026.04.2022 17:33 -
Сделать программу в C#: 1) Дано четырехзначное число. Необходимо проверить, различны...
vitalikduma01oz0gwd27.11.2020 12:44 -
3. Кестені қажетті ақпараттармен толтырыңдар ( 1.3 - кесте ) . 1.3-кесте КОМПЬЮТЕР...
Lana11111111111112.12.2021 07:29 -
1. Кем и когда был введен термин «гипертекст»? 2. Кого считают изобретателем WWW?...
kense10.07.2021 19:06 -
Друзья,по задали работу,а я не знаю как её делать,напишите ,30 . сообщение о выборе...
krasava5vovan13.08.2020 00:20 -
Прочитайте спишите вставляя в предложения пропущенные имена существительные полынья,...
aaaaaaggghhh23.10.2021 03:11 -
Обьяснить, существует ли зависимость между агрегатным состоянием гомологов метана...
Аааааяяяяяннннн02.05.2022 21:58