1. Что будет выведено при выполнении следующей команды при a = 5 и b = 3?
а) print( a, ">", b, "!" )
б) print( "a>", "b!" )
в) print( "(", a, ")<(", a+b, ")" )
2. Запишите команду для вывода значений целых переменных
a = 5 и b = 3 в следующем формате:
а) 3+5=?
б) (5)(3)
в) a=5; b=3;
3. Вычислите значение вещественной переменной c при a = 2 и
b = 3:
а) с = a + 1 / 3
б) с = a + 4 / 2 * 3 + 6
в) с = (a + 4) / 2 * 3
г) с = (a + 4) /(b + 3) * a
4. Вычислите значение целочисленной переменной c при a = 26
и b = 6:
а) c = a % b + b б) c = a // b + a
в) b = a // b
c = a // b
г) b = a // b + b
c = a % b + a
д) b = a % b + 4
c = a % b + 1
е) b = a // b
c = a % (b+1)
ж) b = a % b
c = a // (b+1)
5. *Выполните предыдущее задание при a = –22 и b = 4.
таблица истинности:
X Y Z X+¬Y Z⇒(X+¬Y) ¬X F
0 0 0 1 1 1 1
0 0 1 1 1 1 1
0 1 0 0 1 1 1
0 1 1 0 0 1 1
1 0 0 1 1 0 1
1 0 1 1 1 0 1
1 1 0 1 1 0 1
1 1 1 1 1 0 1
F =1 тождественно истинна ,
так как её значения равны 1 при любых X,Y,Z
type ar=array[1..n+1] of integer;
var
a:ar; i,p:integer;
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n
then writeln('Значение 17 найдено, номер элемента = ',i)
else writeln('Значения 17 в массиве нет');
end.
Пример:
Массив A:
14 5 7 17 25 15 28 0 24 0
Значение 17 найдено, номер элемента = 4