Код программы:
var a:integer;
begin
write('Введите возраст автовладельца: ');
readln(a);
if (a > 40) then begin
writeln('Выберите место эксплуатации:');
writeln('1. Город');
writeln('2. Сельская местность');
readln(a);
if (a = 1) then begin
write('Введите стаж: ');
readln(a);
if (a > 10) then
writeln('Страховать')
else
writeln('Не страховать')
end
else
writeln('Страховать')
end
else begin
writeln('Езда без аварий?');
writeln('1. Да');
writeln('2. Нет');
readln(a);
if (a = 1) then
writeln('Страховать')
else begin
writeln('Выберите тип автомобиля:');
writeln('1. Минивэн');
writeln('2. Спорткар');
readln(a);
if (a = 1) then
writeln('Страховать')
else
writeln('Не страховать')
end;
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Аллгорим на 15 пунктов как получить 5 по языку?
2. Открываешь книгу.
3. Учишь заданное правило.
4. Закрываешь книгу.
5. Идешь спать.
6. Встаешь со звонком.
7. Идешь вванную и приводишь себя в порядок.
8. Выходишь из ванной.
9. Одеваешься и идешь в школу.
10. Садишься за парту.
11. Достаешь русский.
12. Повторяешь правило.
13. Со звонком учитель входит в класс.
14. Поднимаешь руку.
15. Рассказываешь вызубренное правило.