Первая задача переделанная под for
program znanija;
var i,a,s:integer;
begin
a:=5;
s:=6;
for I:=5 to 9 do
begin
s:=s+a-1;
inc(a);
end;
Writeln(a, ' ', s);
end.
Следующая программа найдёт все двузначные числа кратные трём и выведет их на экран
program znanija;
var i:integer;
begin
for i:=10 to 99 do if i mod 3 = 0 then write(i:3);
<span>end.
</span>
19 с индексом 10 означает , что 19 - в десятичной системе счисления , ну т.е наша обычная (0,1,2,3....9) . А 10011 с индексом 2 , это тоже 19 но уже в двоичной системе счисления.
23 / 2 = 11, остаток 1
11 / 2 = 5, остаток 1
5 / 2 = 2, остаток 1
2 / 2 = 1, остаток 0
A = 23₁₀ = 10111₂
19 / 2 = 9, остаток 1
9 / 2 = 4, остаток 1
4 / 2 = 2, остаток 0
2 / 2 = 1, остаток 0
B = 19₁₀ = 10011₂
26 / 2 = 13, остаток 0
13 / 2 = 6, остаток 1
6 / 2 = 3, остаток 0
3 / 2 = 1, остаток 1
C = 23₁₀ = 11010₂
Находим (A ∨ B) ∧ C
1 0 1 1 1
∨ 1 0 0 1 1
---------------
1 0 1 1 1
1 0 1 1 1
∧ 1 1 0 1 0
---------------
1 0 0 1 0
10010₂ = 2⁴ + 2¹ = 16 + 2 = 18₁₀
<em><u>Ответ: 18</u></em>
var
str: <em>string</em>;
i : <em>byte</em>;
begin
readln(str);
str := str.Replace(':', '');
foreach c: string in str.Split(';') do
if (c[c.Length] in ['a', 'а']) then //не уточнено, какого алфавита "а"
i += 1;
writeln(i);
end.
Хороший калькулятор http://tablica-istinnosti.ru/newindex.html