Ранним утром, воробей пролетел мимо леса. Но услышав всхлипы животного , он полетел на звук. Летел он , летел и видит , заяц сидит на земле и плачет.
- "Что случилось заяц?" - спрашивает он.
- "Да вот , потерялся я , всю ночь по лесу бродил, не могу выбраться."
- "Ну, чего ты, не горюй. Помогу я тебе дом найти , ты только скажи где ты обитаешь и как домик то твой выглядит?"
- " Мой дом с красной крышей , сам синий , а рядом морковки лежат "
-"Так, хорошо , жди здесь и не уходи, я скоро прилечу."
-"Хорошо "
Тем временем воробей уже во всю старался найти домик зайца, спрашивал у животных , букашек. Но никто не знал , где находиться зайкин дом.
Но уже ближе к вечеру , он увидел красную крышу , а потом и морковки. На радостях он полетел к зайке.
-"Зайка, зайка!"-звал он его .
-" Воробей , это ты ? Я здесь !"
- "Я нашёл , пойдём скорей "
И спустя некоторое время они пришли к домику зайки. Он его поблагодарил и пригласил на чай , о воробей сказал ему больше не теряться. Так теперь они и живут вместе и помогают друг другу
//Pascal
var a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln(s);
end.
Var x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('<span>Число по модулю не может быть > 300</span>.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.
Я одна ничего не поняла!!????????
01010011 в двоичной системе счисления есть 83 в десятичной системе, что по таблице ASCII является буквой "S".