Var
n,S:integer;
Begin
S:=0;
Write('n = ');ReadLn(n);
repeat
n:=n div 10;
S:=S+n mod 10;
until n = 0;
WriteLn(S)
End.
Все буквы меняем на предыдущие в алфавите ФОТОАЛЬБОМ
В КОИ-8 было 32 байта (1 символ кодируется 1байтом =8бит)
В Unicod стало 64 байта (1 символ кодируется 2-я байтами =16 бит)
uses crt;
var a:array[1..99,1..99] of integer;
m,n,s,i,j:integer;
begin
write('Введите m и n: ');
readln(m,n);
writeln('Исходная матрица: ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(10-(-10)+1)-10;
write(a[i,j]:3);
end;
writeln;
end;
s:=0;
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j]<0 then s:=s+1;
end;
if s=2 then begin writeln('Строка с двумя отрицательными элементами есть'); halt; end; {если нужная строка найдена, программа выдаёт надпись о её нахождении и немедленно завершается}
s:=0;
end;
writeln('Строки с двумя отрицательными элементами нет');
end.
Var
n, i, z: Integer;
begin
Write('n=');
ReadLn(n);
if n = 0 then
WriteLn('z=-1')
else if (n < 0) then
WriteLn('Введено отрицательное число')
else
begin
z := 1;
for i := 1 to n do
z := z * 1 * (3 * i - 1);
WriteLn('z=', z);
end;
end.