очень надо.
1. Определите значение переменной А после исполнения данного алгоритма:
a:=6
b:=4+2*a
a:=b/2*a
Порядок действий соответствует правилам арифметики.
В ответе укажите одно число — значение переменной a.
2. Постройте таблицу истинности для выражения: (А & В) V В
3. Переведите на язык алгебры логики:
Я поеду в автобусе или в трамвае и почитаю по дороге книгу.
const
y = 5;
x = 2;
var
x1,x2,y1,y2:integer;
begin
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
if sqrt( (x1-x) * (x1-x) + (y1 - y) * (y1 - y)) < sqrt( (x2-x) * (x2-x) + (y2 - y) * (y2 - y)) then
writeln('A ближе')
else
if sqrt( (x1-x) * (x1-x) + (y1 - y) * (y1 - y)) > sqrt( (x2-x) * (x2-x) + (y2 - y) * (y2 - y)) then
writeln('B ближе')
else
writeln('Они на одинковом расстоянии');
readln;
end.
var
n:integer;
begin
write('n = ');
readln(n);
if (n mod 10) > ((n div 100) mod 10) then
writeln('Последняя больше второй')
else
if (n mod 10) < ((n div 100) mod 10) then
writeln('Вторая больше последней')
else
writeln('Они равны');
readln;
end.
// Вторая программа
var
n, Pr:integer;
begin
write('n = ');
readln(n);
Pr := 1;
while n > 0 do
begin
Pr := Pr * (n mod 10);
n := n div 10;
end;
writeln('Pr = ', Pr);
if Pr mod 5 = 0 then
writeln('Кратно')
else
writeln('Некратно');
readln;
end.