var
str: <em>string</em>;
i : <em>byte</em>;
begin
readln(str);
str := str.Replace(':', '');
foreach c: string in str.Split(';') do
if (c[c.Length] in ['a', 'а']) then //не уточнено, какого алфавита "а"
i += 1;
writeln(i);
end.
Связь позволяет моделировать отношения между объектами предметной области. Наименование связи должно быть уникально во всей модели.
всего 4 типа связей
1. один к одному
2. один ко многим
3. многие к одному
4. многие ко многим
---
1)Введем значения стоимостей проезда, проживания и питания в сутки, страховки (А1-А4).
2)Введем значение стоимости поездки (B)
3)Вычисляем общую стоимость тура и вводим значение (С).
---
Программа:
INPUT “Введите стоимости проезда, проживания, питания, страховки”, A1, A2, A3, A4
INPUT “На сколько дней”, B
C=A1+(A2+A3)*B+A4
PRINT “Стоимость тура на ”, B, “дней ”, C
END
---