вот информатика глазами детей сам когда то за это 5 получил
Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
<span>end.</span>
Смотря какую.У меня друг делал презинтацию на конкурс совёно он распрашивал всех на каком море кому нравиться потом сделал анкету типо :
на красном море допустим 45%
на чёрном море 15%
ну и т.д.
Загадки:в этом заведении
все перебывали
двоечники,гении
отметки получали
учились здесь артисты
певцы,артиллеристы
сюда хожу и я,
и вы,мои друзья(школа)
что же за предмет такой,
девчонки и мальчишки?
для каждого он-дорогой
что это (записная книжка)
через поле и лесок подается голосок
он бежит по проводам-
скажешь здесь а слышно там (телефон)