Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
<span>
если что то не понятно просто спроси и я обьясню :)</span>
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var b:array[1..10] of integer;
for var i:=1 to 10 do begin
b[i]:=i; Write(b[i],' ')
end
end.
<u><em>Результат:</em></u>
1 2 3 4 5 6 7 8 9 10
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
<span>D) файлы.
С) = D1*D1 + E1*E1;
</span><span>D) =B1*0,01
</span><span> В) 2;
С) =А1/В1;
C) = если(А1 = 5, В4*2; В4 + 10);
</span>
Когда ты присваиваешь переменной какое-то значение ты меняешь содержание переменной