1. Откройте среду программирования Pascal.

2. Введите программу:

program dlina;

uses crt;

var s: string; t:integer;

begin

clrscr;

writeln (‘Введите произвольное слово’);

readln (s);

t:=length(s);

writeln (‘длина слова равна’,t);

readkey;

end.

3. Проверьте программу на наличие ошибок и запустите на выполнение.

Задание 2. Составить программу, определяющую истинность высказывания "Число n является четным"

program chetn;

uses crt;

var n: integer; a: boolean;

begin

clrscr;

write ('Введите исходное число');

readln (n);

a:=n mod 2=0;

writeln ('Число ', n,' является четным - ', a);

readkey;

end.

ответ:1. var

a:array[1..7] of integer;

i:Integer;

begin

//заполнение массива

a[1]:=3;

a[2]:=8;

a[3]:=2;

a[4]:=0;

a[5]:=2;

a[6]:=1;

a[7]:=7;

//вывод массива

for i:=1 to 7 do

Writeln(a[i]);

end.

2. var

c:array[1..12] of integer;

i:Integer;

begin

//заполнение массива

for i:=1 to 12 do

begin

Writeln('Введите ',i,' элемент массива');

readln(c[i]);

end;

//вывод массива

Writeln('Массив');

for i:=1 to 12 do

Write(c[i],' ');

end.

3.var

s:array[1..15] of integer;

i:Integer;

begin

//заполнение массива

for i:=1 to 15 do

s[i]:=random(40);

//вывод массива

Writeln('Массив');

for i:=1 to 15 do

Write(s[i],' ');

end.

4.var

b:array[1..25] of Real;

i:Integer;

begin

//заполнение массива

b[1]:=3;

b[2]:=6;

for i:=3 to 25 do

b[i]:=(b[i-1]+b[i-2])/i;

//вывод массива

Writeln('Массив');

for i:=1 to 25 do

Write(b[i]:9:3);

end.

Объяснение:

а) (1+1) - дизъюнкция, результат 1

   (1+0) - дизъюнкция, результат 1

    1+1 - дизъюнкция, результат 1

б) Если А = 1

   (1*1) = 1 конъюнкция

   (¬А*0) = (0*0) = 0 конъюнкция

  (1*А)+(¬А*0) = 1+0 = 1 дизъюнкция

  ((1*А)+(¬А*0))+1 = 1+1 = 1 дизъюнкция

   Если А = 0

   (1*0) = 0 конъюнкция

   (¬А*0) = (1*0) = 0 конъюнкция

  (1*А)+(¬А*0) = 0+0 = 0 дизъюнкция

  ((1*А)+(¬А*0))+1 = 0+1 = 1 дизъюнкция

Объяснение:

+ дизъюнкция (логическое сложение) - истина когда хотя бы один аргумент истинный

* конъюнкция (логическое умножение) - истина, когда оба аргумента истинны

¬ инверсия - превращает 1 в 0 и 0 в 1