Всем привет! Знаете ли вы, что в некоторых учебных заведениях нашей страны начинают изучать информатику аж со второго класса? С одной стороны, это вроде бы хорошо - повышается компьютерная грамотность детей. А с другой - зачем нужна информатика в начальной школе? Вы же понимаете, что приобщать ребёнка к компьютеру в таком раннем возрасте - значит, слышать от него каждый день "Хочу свой компьютер!" А если исполнить желание своего чада, то придётся бороться с тем, что чадо забудет обо всём на свете, часами просиживая перед монитором. Поэтому, на мой взгляд, целесообразно этот предмет включать в школьную программу только с пятого класса. Но и тут возникает немало вопросов, исходя из которых я поставлю под сомнение целесообразность изучения информатики в школе. Дальше будет интересно, поэтому никуда не уходите.<span> Что изучают на уроках информатики?</span> Когда я вспоминаю уроки информатики в своей школе (мы её начали изучать лишь с 9 класса), мне представляются страшные на вид (но, наверное, шибко умные для той поры) компьютеры с чёрно-белым маленьким монитором и грязно-жёлтыми системными блоками с отверстием для дискет. Я не знаю, на что они были способны, но мы на них печатали текст и играли в какую-то примитивную игрушку (наподобие тетриса). В дальнейшем у нас появились новые компьютеры с цветными мониторами. Это был настоящий прогресс, и в то время я впервые увидел, как пользоваться мышкой... Что же изучали мы на уроках информатики? Язык программирования Бэйсик, навыки работы в Word, игра "Как достать соседа" - вот всё, что я помню из 3-летнего курса информатики в школе. Из этого набора мне пригодилось только второе, а всё остальное было забыто за ненадобностью.<span> Изменилась ли ситуация сейчас? Для ответа на этот вопрос нужно заглянуть в современные учебники по информатике. Для примера я возьму серию учебников для 5-9 классов (2013 год, автор Босова Л.Л.) и учебники для 10-11 классов (2013 год, автор Семакин И.Г.).</span>
1 задача: program znan1; uses crt; var a:char; begin clrscr; readln(a); while a<>'.' do begin writeln(ord(a)); readln(a); end; <span>end.
2 задача: program znan2; uses crt; var i,j:integer; begin for i:=1 to 16 do begin for j:=1 to 8 do begin write((i*j-1):5,'-',chr(i*j-1)); end; writeln; end; readln; <span>end.</span></span>
Def IsPointInCircle(x, y, xc, yc, r): return (x-xc)*(x-xc)+(y-yc)*(y-yc)<=r*r
x = float(input()) y = float(input()) xc = float(input()) yc = float(input()) r = float(input()) if IsPointInCircle(x, y, xc, yc, r): print("YES") else: print("NO")