10 - 2 + 1 = 9 строк
9 * 2 = 18 клеток
Sub aaa()
a = InputBox("Введите число А")
b = InputBox("Введите число B")
c = InputBox("Введите число C")
s = a + b + c
k = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = "0" Then k = k + 1
Next i
MsgBox "Общее количество нулей равно" + Str(k)
End Sub
1)25600бит/c = 31,25 KB
2)31,25 *10=312.5KВ
Ответ 312.5 КВ
X - число, которое говорят клоуну. Программа выводит ответ клоуна.
******
program kloun;
var x:integer;
begin
readln (x);
x:=x-7;
x:=x+2;
x:=x-5;
writeln (x);
readln
end.
Зашифровка '100612' с ключём '100500': 000312