Program s;
var
b:array[1..100] of integer;
i,n:integer;
begin
read(n);
for i:=1 to n do
begin
b[i]:=i*i-4;
writeln(b[i]);
end;
end.
Всем привет! Знаете ли вы, что в некоторых учебных заведениях нашей страны начинают изучать информатику аж со второго класса? С одной стороны, это вроде бы хорошо - повышается компьютерная грамотность детей. А с другой - зачем нужна информатика в начальной школе? Вы же понимаете, что приобщать ребёнка к компьютеру в таком раннем возрасте - значит, слышать от него каждый день "Хочу свой компьютер!" А если исполнить желание своего чада, то придётся бороться с тем, что чадо забудет обо всём на свете, часами просиживая перед монитором. Поэтому, на мой взгляд, целесообразно этот предмет включать в школьную программу только с пятого класса. Но и тут возникает немало вопросов, исходя из которых я поставлю под сомнение целесообразность изучения информатики в школе. Дальше будет интересно, поэтому никуда не уходите.<span> Что изучают на уроках информатики?</span> Когда я вспоминаю уроки информатики в своей школе (мы её начали изучать лишь с 9 класса), мне представляются страшные на вид (но, наверное, шибко умные для той поры) компьютеры с чёрно-белым маленьким монитором и грязно-жёлтыми системными блоками с отверстием для дискет. Я не знаю, на что они были способны, но мы на них печатали текст и играли в какую-то примитивную игрушку (наподобие тетриса). В дальнейшем у нас появились новые компьютеры с цветными мониторами. Это был настоящий прогресс, и в то время я впервые увидел, как пользоваться мышкой... Что же изучали мы на уроках информатики? Язык программирования Бэйсик, навыки работы в Word, игра "Как достать соседа" - вот всё, что я помню из 3-летнего курса информатики в школе. Из этого набора мне пригодилось только второе, а всё остальное было забыто за ненадобностью.<span> Изменилась ли ситуация сейчас? Для ответа на этот вопрос нужно заглянуть в современные учебники по информатике. Для примера я возьму серию учебников для 5-9 классов (2013 год, автор Босова Л.Л.) и учебники для 10-11 классов (2013 год, автор Семакин И.Г.).</span>
1) i=17 k=17 I=ki I=17*17 I=289
2)i=29 k=29 I=ki I=29*29 I=841
3)i=14 k=14 I=ki I=14*14 I=196
Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var a,b,c,s:real; begin repeat write ('Введите длину гипотенузы c='); readln(c); write ('Введите длину катета a='); readln(a); write ('Введите длину площади s='); readln(s); if (c>b) and (c>0) and (b>0) then begin a:=sqrt(sqr(c)-sqr(b)); s:=(1/2)*b*c; write end.