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 - компьютер.
устройство 2 - интерактивная доска.
Я писала этот сор, это правильно)
Var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do readln(a[i]);
i:=2;
while i<=10 do
begin
writeln(a[i]);
inc(i,2);
end;
readln;
end.
Опаснее биологический так как он сильно вредит здоровью и при этом обильно размножается и заражает других, а компьютерный вредит только компьютеру и файлам.
1 байт = 8 бит
8192:8=1024 байта
1 мб = 8388608 бит
4 мб = 8388608*4 = 33554432 бит
12582912 бит = 1.5 мб