Нет возможсти проверить. Если неправильно - напиши.
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;
end.
Begin
for var i:=1 to 4 do
begin
for var j:=1 to 5 do
write('3 ');
writeln;
end;
end.
(Pascal ABC)
Var x1,x2,y,p:integer;
begin
write('Введите четырехзначное число: ');
readln(y);
x1:=y div 1000;
x2:=y mod 10;
p:=x1*x2;
writeln('Произведение крайних цифр: ',p)
<span>end.</span>
Кодирование информации имело огромную роль во время всех военных конфликтах в истории человечества. Кодирование информации при помощи азбуки Морзе помогает общаться там, где сказать что-то словами не представляется возможным.
Ориентируясь на то, что написано на картинке, уточняю задачу за тебя:
Даны запросы и количество страниц по ним:
Футбол | Хоккей = 20000 страниц
Футбол = 14000 страниц
Хоккей = 16000 страниц
И надо найти, сколько страниц будет по запросу Футбол & Хоккей.
Найдем сколько страниц содержат ТОЛЬКО хоккей, без футбола: ~Ф&X = Ф|X - Ф = 20000 - 14000 = 6000
ТОЛЬКО футбол, без хоккея: Ф&~Х = Ф|Х - Х = 20000 - 16000 = 4000
И чтобы найти все страницы, которые содержат И футбол, И хоккей:
Ф&Х = Ф|Х - Ф&~X - ~Ф&Х = 20000 - 6000 - 4000 = 10000
Ответ: 10000