...................................................
1.Появление первых лазерных дисков 15 декабря 1978
2. Первые следы иероглифического письма в Древнем Египте<span> к началу I династии, то есть примерно в 4 тысячелетии до н. э.
</span>3. <span>Середина XVI в.
4. </span><span>21 ноября 1877
5. </span><span>Демонстрация первого кинофильма. 1895 г.</span>
//PascalABC.NET
//Переменная m - множитель, когда встретится
// четное число, m станет равным нулю
begin
var n := ReadInteger('n =');
var m := 1;
var sum := 0;
for var i := 1 to n do
begin
var number := ReadInteger;
m *= number mod 2;
count += m * number
end;
write(sum)
end.
151 в двоичной системе (10010111) тем самым единиц равняется 5.
// Задание №1
var a,b,c:real;
begin
writeln('Введите длины сторон треугольника');
readln(a, b, c);
if (a=b) and (b=c) and(a>0) then
writeln('Равносторонний')
else
writeln('Не равносторонний');
end.
'
//Задание №2
var
a, b, i, s: integer;
begin
writeln('Введите левую границу диапазона');
readln(a);
writeln('Введите правую границу диапазона');
readln(b);
s := 0;
for i := a to b do
if i mod 2 <> 0 then s := s + i;
writeln('Сумма нечетных:', s);
end.
