Uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
<span>end.</span>
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
Весьма интересно описан процесс перемножения чисел ;)
Результат операции будет в временной с именем z
Насколько я знаю, информация с внешнего устройства памяти загружается сначала в оперативную память, а только потом используется процессором для работы с информацией - это к предыдущему ответу.
Мои ответы смотри во вложении: