F - ответ
1)
A B AvB F
0 0 0 0
1 0 1 1
0 1 1 1
1 1 1 1
2)
A B (отриц)B Bv(отриц)B F
0 0 1 1 1
0 1 0 1 1
1 0 1 1 1
1 1 0 1 1
3)
A B C AvBvC F
0 0 0 0 0
0 0 1 1 1
0 1 0 1 1
0 1 1 1 1
1 0 0 1 1
1 0 1 1 1
1 1 0 1 1
1 1 1 1 1
4)
A B C (отриц)C AvBv(отриц)C F
0 0 0 1 1 0
0 0 1 0 0 1
0 1 0 1 1 0
0 1 1 0 1 0
1 0 0 1 1 0
1 0 1 0 1 0
1 1 0 1 1 0
1 1 1 0 1 0
Var
i, sum, j: integer;
begin
j:=1;
sum:=0;
WHILE j<15 DO
begin
sum:=sum+(j*j*j);
j:=j+2;
end;
write(sum);
end.
Var a, b, S, k: integer;beginS:=0;k:=0;readln(b);readln (a);while (a<>0) do beginif (a mod b =0)then begin S:=S+1;k:=k+a;end;readln (a);end;if (S>0) and (k>0)then writeln (S, ' ', k)else writeln ('таких чисел нет');end.
№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else
write('Треугольник неравнобедренный');
end.
БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец
№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.
БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
если i - нечётное, то
прибавить к s
вывести s
конец
ГистограммыГрафикиКруговые диаграммыЛинейчатые диаграммыДиаграммы с областямиТочечные диаграммыБиржевые диаграммыПоверхностные диаграммыКольцевые диаграммыПузырьковые диаграммыЛепестковые диаграммы