Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
19 апреля 2023 18:35
613
1Составить программу определяющую, какая из двух фамилий длиннее. Фа- милии имеют разную длину (Вывести на экран длинную фамилию).
2 Чему будет равно значение переменной S после выполнения следующих операто- ров:
S1:='колонна'; S2:='профессор'; K1:=copy(S1,1,2);
K2:=copy(S1,6,2);
K3:=copy(S2,2,2); S:=concat(K1,K3,K2);
1
ответ
1. Вот программа, которая определяет, какая из двух фамилий длиннее:
```
program longestSurname;
var
surname1, surname2: string;
begin
write('Введите первую фамилию: ');
readln(surname1);
write('Введите вторую фамилию: ');
readln(surname2);
if length(surname1) > length(surname2) then
writeln('Первая фамилия длиннее: ', surname1)
else if length(surname2) > length(surname1) then
writeln('Вторая фамилия длиннее: ', surname2)
else
writeln('Фамилии равной длины.');
end.
```
2. После выполнения следующих операторов:
```
S1 := 'колонна';
S2 := 'профессор';
K1 := copy(S1, 1, 2);
K2 := copy(S1, 6, 2);
K3 := copy(S2, 2, 2);
S := concat(K1, K3, K2);
```
Значение переменной `S` будет равно `'олснао'`.
```
program longestSurname;
var
surname1, surname2: string;
begin
write('Введите первую фамилию: ');
readln(surname1);
write('Введите вторую фамилию: ');
readln(surname2);
if length(surname1) > length(surname2) then
writeln('Первая фамилия длиннее: ', surname1)
else if length(surname2) > length(surname1) then
writeln('Вторая фамилия длиннее: ', surname2)
else
writeln('Фамилии равной длины.');
end.
```
2. После выполнения следующих операторов:
```
S1 := 'колонна';
S2 := 'профессор';
K1 := copy(S1, 1, 2);
K2 := copy(S1, 6, 2);
K3 := copy(S2, 2, 2);
S := concat(K1, K3, K2);
```
Значение переменной `S` будет равно `'олснао'`.
1
·
Хороший ответ
19 апреля 2023 18:36
Остались вопросы?
Еще вопросы по категории Информатика
Нумерация страниц в ворде Помогите пронумеровать страницы так, чтобы первая страница была без номера, вторая с номером 2, а третья травница начинала...
1. Совокупность всех программ компьютера – это a) Рабочий стол b) Установка и удаление программ c) Прикладные программы d) Программное обесп...
Между дачными посёлками А, Б, Б, Г, Д построены дороги, протяжённость которых (в километрах) приведена в таблице.Постройте схему, соответствующую этой...
СРОЧНОО ПОЖАЛУЙСТА!!!ДАЮ 20 БАЛЛОВ !!!!!! Дано действительное число А. Если А - положительное число , то возведите его в квадрат , если же число А - о...
Какие из перечисленных устройств обязательно входят в состав мультимедийного компьютера А-модем Б-сканер В-CD/DVD Г-сетевая карта Д-звуковая карт...