VAR a,b:INTEGER;
begin
Readln(b);
a:=b*b*b*b*b*b*b;
writeln(a);
<span>end.</span>
Ответ:
Объяснение:
Если мне не изменяет память, то это должно быть так:
не (Х и (не Х и не Y))
не (1 и (не 1 и не 0))
не (1 и (0 и 1))
не (1 и 0)
не 0
1
не Х и (не(не Y или Х))
не 1 и (не(не 0 или 1))
не 1 и (не(не 1))
не 1 и (не 0)
не 1 и 1
0 и 1
0
Program umnochen1;
uses crt;
var a,b,c,d:integer;
BEGIN
a:=random(100);
b:=random(100);
c:=a*b;
write(a,'x',b,'=');
read(d);
if (d=c) then begin
textcolor(2);
writeln('Првильно!')
end
else
begin
textcolor(4);
writeln('Вы ошиблись!');
end;
<span>end.</span>
Так на пример чтоб совершить какой либо алгоритм ты его предстовояешь сегодня сделал много алгоритмов например с утра что ты делаешь
1. открываешь глоза
2.встаешь
3.одеваешь тапочки
4.встоешь с кровати
5.запровляешь кровать
6.идёшь в вану
7.принимаешь душ
8.чистиш зубы
9.вытираешься
10.одеваешься
11.идеш на кухню
12.береш чайник
13.идёшь к воде
14.включаешь воду
15.подстовляешь чайник
16.ждешь пока набирается вода
17.выключаешь воду
18.идеш к плите
19. ставишь чайник
20.зажигаешь спичку
21.включаешь газ
22.подносишь спичку
23.ждешь воду
и т.д
)