1)
program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.
2)
program z2;
Var i:integer;
Begin
for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');
end.
2 способ:
program z2;
Var i:integer;
Begin
i:=1;
while i<=9 do
begin write(i, ', ');
i:=i+2;
end;
end.
3)
program z3;
Var i,n:integer;
S:real;
a: array[1..100] of real;
Begin
write('Введите количество элементов массива:');
readln(n);
write('Введите элементы массива:');
for i:=1 to n do read(a[i]);
i:=1; S:=0;
while i<=n do
begin S:=S+a[i];
i:=i+2;
end;
write('S=',S);
end.
Вот решение в пару строчек:
program with_for;
var i, x: integer;
begin
for i:= 1 to 100 do if i mod 2 =0 then x:=x+i*2 else x:=x+i;
writeln(x);
end.
В 1642 году французский математик Блез Паскаль
сконструировал первую в мире механическую счетную машину, которая, умела
складывать и вычитать.
1709 году некий венецианец Полени построил счетную машину,
работавшую при помощи зубчаток с переменным числом зубцов.
В 1623 году немецким учёным Вильгельмом Шиккардом был создан
первый механический "калькулятор", который он назвал считающими
часами. Механизм этого прибора напоминал обычный часовой, состоящий из
шестерёнок и звёздочек. Однако известно об этом изобретении стало только в
середине прошлого столетия.
В 1673 году саксонский математик и философ Готфрид фон
Лейбниц изобрёл машину, выполнявшую четыре основных математических действия и
умевшую извлекать квадратный корень. Принцип её работы был основан на двоичной
системе счисления, специально придуманной учёным.
В 1818 году француз Шарль (Карл) Ксавье Тома де Кольмар,
взяв за основу идеи Лейбница, изобрёл арифмометр, умеющий умножать и делить.-
В 1887 году история развития вычислительной техники вышла на
новый этап. Американскому инженеру Герману Голлериту (Холлериту) удалось
сконструировать первую электромеханическую вычислительную машину – табулятор. В
её механизме имелось реле, а также счётчики и особый сортировочный ящик. Прибор
считывал и сортировал статистические записи, сделанные на перфокартах.
Несовместность означает, что ни при каких условиях события A и B не произойдут одновременно, то есть событие AB (как раз событие, заключающееся в одновременном происхождении A и B) не происходит никогда, оно невероятное. Вероятность такого события равна нулю.
P(AB) = 0