#1 Какое из следующих предложений является высказыванием? Определите их истинность: 1. Наполеон был французским императором
2. Чему равно расстояние от Земли до Марса?
3. Внимание! Посмотрите направо
4. Электрон-элементарная частица
5. Не нарушайте правил дорожного движения!
#2 Определите значение логических переменных A, B, C, D, если
1. A и (Париж-столица франции)-истинное высказывание
2. B и (Париж-столица франции)- ложное высказывание
3. C или (6 больше 10)-истинное высказывание
4. D или (6 больше 10)-ложное высказывание
#3 Решите задачу:
Трёх друзей зовут Вова, Слава и Никита. Кто то из них потерял солдатика. Их друг Его сказал:
1. Солдатика потерял не Вова
2. Солдатика потерял Слава
Но оказалось что одно сообщение было ложным, а другое истинным. Кто потерял солдатика

Интернет – одно из самых удивительных изобретений 20-го века. Он дает безграничные возможности в отношении различных коммуникаций, получения и хранения нужной информации, направлении мультимедиа. Отношение к нему различных слоев населения неоднозначно, содержит даже диаметрально противоположные позиции, но огромное значение его в жизни современного человека не будет оспариваться никем.

Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:

- Что же такое интернет,

- Использование интернета в жизни людей,

- Как интернет влияет на людей,

- Интернет для ребенка,

- Можем ли мы прожить без интернета,

- Интернет в отдельном школьном классе,

- Личное отношение автора к интернету.

Program aaa;
var A: array[1..100,1..100] of integer; n,k,r,c,x: integer; i,j: byte;
begin 
 randomize;
 writeln ('Введите N, K, R, C');
 readln (n,k,c,r);
 x:=0;
 for i:=1 to n do begin
    for j:=1 to n do begin
        writeln ('Введите ',j,'-е число ',i,'-ой строки');
        readln (A[i,j]);
        //или можно ввести рандомно: A[i,j]:=random(0,1);
        if ((i>(r-k)) and (i<=r) and (j>(c-k)) and (j<=c) and (A[i,j]=1))
            then x:=x+1
    end
  end;
writeln;
// в следующем цикле выводится весь массив для наглядности
// его можно просто убрать если не нужен
      for i:=1 to n do begin
          for j:=1 to n do begin
              write (A[i,j]:3);
          end;
          writeln
      end;  
  writeln;
  writeln (x)
end.