<span>диван тесто стол кресло, тесто конечно </span>
Program z4;
var s,l:integer; {объявляем переменные}
begin
s:=0; {начальное значение}
l:=0; {начальное значение}
while l<3 do {пока l<3 выполняем..}
begin {начало цикла}
l:=l+1; {увеличиваем l}
s:=s+l*l; {вычисляем текущее значение s}
end; {конец цикла}
writeln('s = ',s); {выводим s}
end.
N=16
N=2^i
Отсюда следует, что i=4бит
i=4
k=1000
I=k*I
I=1000*4=4000бит
4000/8=500байт
Компьютеры в будущем не нужны будут зарядки их можно будет поместить в карман их можно будет что-нибудь нарисовать и вытащить и они будут работать без клавиатуры
Var a,b,k:integer;
begin
k:=0;
writeln('Введите число');
readln(a);
repeat
if (a mod 10) in [4,8] then k:=k+1;
a:=a div 10;
until a=0;
writeln('Количество чисел=',k)
end.
Введите число
24583
Количество чисел=2