Можно фото???Ато не понятно
<span>program A;vark, t: integer;beginassign(input, 'input.txt'); reset(input);assign(output, 'output.txt'); rewrite(output);ReadLn(k, t);if (t div k mod 2 = 0) thenWriteLn(t mod k)elseWriteLn(k - t mod k);close(input); close(output);<span>end.</span></span>
Я очень люблю уроки информатики. Это мой любимый урок. Там всегда весело и интересно. Каждый раз я узнаю что-то новое. Каждый урок не похож на другой, в школе такое бывает редко. Мне нравится работать на компьютере.
На самых первых уроках мы изучали Paint-рисовали разные плакаты и рисунки, дальше уже сложнее: создавали таблицы с разными цифрами, буквами и рисунками. Еще мне нравится интерактивная доска. На ней мы рисуем и выполняем задания специальным карандашом с батарейками. На большом экране мы видим монитор учителя, и всему классу наглядно понятно, что и как делать.
Еще на уроках информатики мы учимся находить в интернете нужную информацию и смотрим разные города со спутника. Это очень интересно. Сразу создается впечатление, что ты побывала в новом месте и увидела много нового.
У нас очень хороший учитель. Она всё объясняет и показывает. .
program Cikle;
uses crt;
var a,b,i,k:integer;
Begin
clrscr;
write('Введите А: '); readln(a);
<span>write('Введите B: '); readln(b);
</span>if a>b then begin i:=a; a:=b; b:=i end;
{_______________________________________}
{1 способ реализации - цикл for}
k:=0;
for i:=a to и do k:=k+i;
{_______________________________________}
{2 способ реализации - цикл с предусловием while}
k:=0;
while a<=b do begin
k:=k+a;
a:=a+1 end;
{_______________________________________}
{3 способ - цикл с постусловием repeat}
k:=0;
repeat
k:=k+a;
a:=a+1;
until a>b;
{_______________________________________}
{Окончание программы одинаковое для всех способов}
Writeln('Сумма элементов в интервале [A;B] равна ', k)
readln
End.
«Кто владеет информацией — тот владеет миром», — был убежден премьер-министр Великобритании Уинстон Черчилль, и вряд ли его можно упрекнуть в заблуждении. Обычно в качестве иллюстрации этого тезиса приводят пример с рыбалкой, когда знание о том, где можно наловить много рыбы, ценится выше, чем удочка. Увы, с тех пор, как британский премьер изрек бессмертные слова, прошло немало времени, и фигуральная вода, в которой водятся пресноводные, успела порядком помутнеть. На сегодняшний день информации в мире стало так много, что скорее уж миром владеет тот, кто владеет дезинформацией. А все остальные вынуждены бороться с информационными вирусами самостоятельно.
<span>Автор: Глядящий Вдаль
</span>
Фильтрующие программы: Из данных министерства связи следует, что несмотря на то, что многие родители в Израиле очень обеспокоены данной ситуацией, только 53% родителей считают интернет небезопасным местом, 67% родителей позволяют своим детям беспрепятственно пользоваться интернетом, а 53% родителей вообще не вмешиваются в то, каким образом их дети пользуются интернетом. <span>Важно знать, что сегодня существуют программы, которые фильтруют информацию в интернете. Эти программы рассчитаны как на личный компьютер, так и на мобильный телефон. Они фильтруют оскорбительную и опасную для детей информацию, такую как порнография, тяжелое насилие и продажа наркотиков, и препятствуют тому, чтобы дети передавали свои личные данные, которые могут нанести вред им самим или их окружающим, не мешая при этом обычному пользованию интернетом и не замедляя работу компьютера. Эти программы легко достать и установить. Более того, по закону поставщики интернет услуг, включая операторов мобильной связи, обязаны предлагать своим абонентам эффективные услуги по фильтрации интернет сайтов и оскорбительной информации без дополнительной платы.
</span>
