Решение 1-й задачи:
//PascalABC.Net
//NaaMan
var
i, n : integer;
begin
i := 0;
repeat
write('Введите число > ');
readln(n);
if (n > 0) then
if (n mod 2 = 0) then
if (n mod 3 = 0) then i := i + 1;
until (n = 0);
writeln('Количество чётных чисел, кратных 3: ', i)
end.
Для решения второй задачи нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).
Var n:integer;
begin
readln(n);
if ((n div 10)+ (n mod 10) )=5 then
writeln('Сумма равно 5')
else writeln('Сумма не равна 5');
end.
I=k*i
I=128*128*5=81920 бит=81,92 килобит=10,24 килобайт.
А В А*В А*В+А В*А А+В*А (А*В+А)*(А+В*А)
0 0 0 0 0 0 0
0 1 0 0 0 0 0
1 0 0 1 0 1 1
1 1 1 1 1 1 1
Удаление справа-(1.Установить...символом..2.Нажать...Del)
Удаление слева-(1.Установить...за лишним символом..2.Нажать..Backspace)
Замена символа справа(1-Установить курсор перед ошибочным символом....)
И последнее-Вставка пропущенного символа.
алгоритм--1-установить курсор после ошибочного символа.2-Нажать Backspace.3.Нажать клавишу с верным символом.
______
1Столбик-3 столбик
2 столбик- 1 столбик
3 столбик- 2 столбик
________
1-1
2-2
3-3
4-2
5-2
6-2
7-1
8-3
9-2,3
