Александр Сергеевич Пушкин родился 26 мая 1799 года в Москве в дворянской помещичьей семье (отец его был майор в отставке) в день праздника Вознесения.
В тот же день у императора Павла родилась внучка, в честь которой во всех церквах шли молебны и гудели колокола. Так, по случайному совпадению день рождения русского гения был ознаменован всеобщим народным ликованием. Символично и место рождения поэта г. Москва - самое сердце русской жизни, России.
Будущего поэта крестили 8 июня в церкви Богоявления в Елохове.
Отец Пушкина Сергей Львович и мать Надежда Осиповна, урожденная Ганнибал, были дальними родственниками. Пылкие страсти, руководившие предками как по отцовской, так и по материнской линии, оказали свое влияние и на Пушкина.
Семья (кроме Александра, были еще дети Ольга и Лев) принадлежала к самой образованной части московского общества. только ошибки сделай сама
Александр Сергеевич Пушкин родился 26 мая 1799 года в Москве в дворянской помещичьей семье (отец его был майор в отставке) в день праздника Вознесения.
В тот же день у императора Павла родилась внучка, в честь которой во всех церквах шли молебны и гудели колокола. Так, по случайному совпадению день рождения русского гения был ознаменован всеобщим народным ликованием. Символично и место рождения поэта г. Москва - самое сердце русской жизни, России.
Будущего поэта крестили 8 июня в церкви Богоявления в Елохове.
Отец Пушкина Сергей Львович и мать Надежда Осиповна, урожденная Ганнибал, были дальними родственниками. Пылкие страсти, руководившие предками как по отцовской, так и по материнской линии, оказали свое влияние и на Пушкина.
Семья (кроме Александра, были еще дети Ольга и Лев) принадлежала к самой образованной части московского общества. только ошибки сделай сама
Держи 1 и 3 ;) :
1)
Program solution;
Uses Crt;
Var i, poloz, otrits, zero : Byte;
n : integer;
Begin
ClrScr;
poloz := 0;
otrits := 0;
zero := 0;
for i := 1 to 10 do
begin
readln(n);
if n > 0 then poloz := poloz + 1;
if n < 0 then otrits := otrits + 1;
if n = 0 then zero := zero + 1;
end;
write('+: ', poloz, ', -: ', otrits, ', 0: ', zero);
ReadKey;
End.
3:
Program solution;
Uses Crt;
Var sum, num, count : Word;
Begin
ClrScr;
sum := 0;
count := 0;
while sum <= 100 do
begin
write(': ');
readln(num);
sum := sum + num;
count := count + 1;
end;
writeln('Было введено чисел: ', count);
ReadKey;
End.