В задании представлены только 2 операции:
Конъюнкция (/\, *, &, логическое умножение) и дизъюнкция (\/, +, логическое сложение).
Порядок выполнения как в математике, сперва умножение (^) потом сложение (\/). И не стоит забывать что в первую очередь выполняются действия в скобках.
Таким образом:
1) (1 \/ 1) \/ (1 \/ 0) = 1 \/ 0 = 1
2) (((1 \/ 0) \/ 1) \/ 1) = ((1 \/ 1) \/ 1) = 1 \/ 1 = 1
3) (0 & 1) & 1 = 0 & 1 = 0
4) 1 & (1 & 1) & 1 = 1 & 1 & 1 = 1 & 1 = 1
5) ((1 \/ 0) & (1 & 1)) & (0 \/ 1) = (1 & 1) & 1 = 1 & 1 = 1
6) ((1 & 1) \/ 0) & (0 \/ 1) = (1 \/ 0) & 1 = 1 & 1 = 1
7) ((0 & 0) \/ 0) & (1 \/ 1) = (0 \/ 0) & 1 = 0 & 1 = 0
8) (A \/ 1) \/ (B \/ 0) = 1 \/ B = 1
9) ((1 & A) \/ (B & 0)) \/ 1 = (A \/ 0) \/ 1 = A \/ 1 = 1
10) 1 \/ A & 0 = 1 \/ 0 = 1
Ответ:
var money, price, count: integer;
begin
writeln('Введите количество денег и стоимость одной газировки');
readln(money, price);
count := 0;
if(money >= price) then begin repeat
money := money - price;
inc(count, 1);
until money < price;
writeln('Петя может купить ', count, ' банок газировки');
end else writeln('Вася не может купить газировку.');
end.
Объяснение:
1) Создаём переменные
money - количество денег у Васи.
price - цена одной газировки.
count - количество банок после покупки.
2) Запрашиваем сумму денег Васи.
3) Проверяем количество денег, если у Васи денег меньше чем цена одной газировки, то говорим пользователю, что Вася не может купить газировку.
4) Через цикл получаем количество банок и выводим ответ.
Рабочий стол, точно, окна может быть, панель задач
Ответ:
не знаю под чем ты подразумеваешь алгоритм, если это программа на паскаль то вот, нет ну тут уже сами справитесь, тут уж все разжевано
Объяснение:
program my;
var
i:integer;
bil:longint;
a:array [1..6] of integer;
begin
write('Введите номер билета');
readln (bil);
if (bil>999999) or (bil<100000) then begin
writeln('Введён неправильный номер');
end
else
for i:=1 to 6 do
begin
a[i]:=bil mod 10;
bil:=bil div 10;
writeln(a[i]);
end;
if (a[1]+a[2]+a[3])=(a[4]+a[5]+a[6]) then writeln('Вы выиграли')
else
writeln('Вы проиграли');
end.
