Помогите, пожалуйста напишите программу которая ** введенную дату из этих интервалов...

Question

Помогите, пожалуйста

напишите программу которая на введенную дату из этих интервалов выводит название города.
1703-1914-Санкт-Петербург
1915-1924 - Петроград
1925-1991- Ленинград
С 1992 - Санкт-Петербург

Comments

а язык

Answer 1

Var a,b,c,d:integer;
beginwriteln('введите год');
readln(a);
if (a>=1730) and (a<=1914) then writeln('Санкт-Петербург');<br>if (a>=1915) and (a<=1924) then writeln('Петроград');<br>if (a>=1925) and (a<=1991) then writeln('Ленинград');<br>if (a>=1992) then writeln('Санкт-Петербург');
end.

Comments

Спасибо ^-^

---

всегда пожалуйста ;D