Проверьте,есть ли ошибки? : ) программирование. program name uses crt; var a : integer; begin clrscr; readln (a); if (a> =1703) or (a< 1914) or (a> =1992) then writeln ('санкт петербург'); if (a> =1915) or (a< 1924) then writeln ('петроград'); if (a> =1925) or (a< =1991) then writeln ('ленинград'); readln; end.

247

447

Посмотреть ответы 3

Ответы на вопрос:

viktoriav84

Информатика

4,7(53 оценок)

Во-первых, тут есть синтаксическая ошибка: в конце первой строки отсутствует точка с запятой. во-вторых, неверно определены диапазоны дат: нет названия города до 1703 года (на самом деле города тогда еще не было, но что-то все равно надо сообщить), не определен 1914 год, когда город был переименован в петроград и 1924 год, когда город был переименован в ленинград. и в-третьих, хоть это и не ошибка, но недочет программы: будут выполняться все три оператора if, даже если в первом из них искомая дата будет найдена. ниже предлагается исправленный вариант программы. program name; uses crt; var a: integer; begin clrscr; readln(a); if a< 1703 then writeln('город не существовал') else if (a> =1703) and (a< 1914) or (a> =1991) then writeln ('санкт-петербург') else if (a> =1914) and (a< 1924) then writeln ('петроград') else writeln ('ленинград'); readkey end.

vovachetaikin86

Информатика

4,8(21 оценок)

Program name; uses crt; var a : integer; begin clrscr; readln (a); if (a> =1703) and (a< 1914) or (a> =1992) then writeln ('санкт петербург'); if (a> =1915) and (a< 1924) then writeln ('петроград'); if (a> =1925)and (a< =1991) then writeln ('ленинград'); if a< 1703 then writeln('error'); readkey; end.