ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, отрицательных: ЦЕЛ;
УКАЗ
N := Приём.Число();
СОЗДАТЬ(массив, N);
отрицательных := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 20)) - 10;
ЕСЛИ массив[сч] < 0 ТО УВЕЛИЧИТЬ(отрицательных) КОН
КОН;
Вывод.ЧЦел("^%d", отрицательных, 0, 0, 0)
КОН Задание.
//так и не осознала как вводить функции с клавиатуры. Спрошу у учителя.
var b1,b2,b:boolean;
function imp(a, b : boolean) : boolean;
begin
imp:=(not a) or b;
end;
begin;
writeln('Implication');
For b1:=false to true do
For b2:=false to true do
writeln(b1:7,b2:7,imp(b1,b2):7);
writeln('not (x) or y');
For b1:=false to true do
For b2:=false to true do
writeln(b1:7,b2:7,((not b1) or b2):7);
For b1:=false to true do
For b2:=false to true do
if imp(b1,b2)<>((not b1) or b2) then
begin;
writeln('Не эквивалентны');
exit;
end;
writeln('Эквивалентны');
<span>end.</span>
Var a,b,x,s:integer;
begin
write('a = ');
readln(a);
write('x = ');
readln(x);
b:=a;
s:=0;
while b>0 do
begin
s:=s+b mod 10;
b:=b div 10;
end;
writeln('s = ',s);
if s>x
then writeln('Сумма цифр больше ',x)
else writeln('Сумма цифр не больше ',x);
end.
Пример:
<span>a = 31854
x = 15
s = 21
Сумма цифр больше 15</span>
Данные в таблице практически везде неверные, если свериться с астрономическими справочниками. Ну да не суть важно.
Во вложении - файл Microsoft Word-2003 с таблицей.
1.
3*(-2+3+2)-9=0
3*(-1+2+1)-6=0 Это подходит
Ответ:3
2.
2*(-6+3+1)+4=0
2*(2+3-2)-6=0 Это подходит
Ответ:4
3. 360:120=3- Это треугольник, так как 3
Ответ:4
4. 360:60=6- Незамкнутая ломаная линия, так как 6 это перебор (Повтори 5)
Ответ: 4
5.
3*(-2+3+2)=9
3*(-1+2+1)=6, так как сказано заменить, то мы просто меняем знаки.
Ответ:(-9;-6)
