Во втором находится сумма цифр числа
а = 1
б = 2
с = 5
Сумма = 8
В третьем надо написать, насколько я вижу, на паскале программу.
program Hello;var a,b,c,x:integer;begin readln(x); a:=x div 100; b:=x mod 100 div 10; c:=x mod 10; writeln('Сотни ',a); writeln('Десятки ',b); writeln('Единицы ',c);end.
Алг перевертыш
нач
цел a,a1,b,i,k
ввод a
k:=0
b:=a
a1:=0
нц пока a>0
i:=mod(a,10)
k:=k+1;
a:= div(a,10)
кц
нц пока b>0
a1:=a1+mod(b,10)*10**(k-1);
b:=div(b,10);
k:=k-1
кц
вывод " новое число =", a1
кон<span>
</span>
var a:array [1..100] of integer;
i,n:integer;
s:string;
Begin
randomize;
for i :=1 to 100 do
begin
a[i]:= random(1000)+1000;
a[i]:=a[i] mod 100;
a[i]:=a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
End.
Ввод матрицы A(n, m)
Цикл по строкам i = от 1 до n
Цикл по столбцам k = от 1 до m
Если A(i, k) = 0, то
Цикл по столбцам j = от 1 до m
Q = A(i, j) : A(i, j) = A(i, m-j+1) :
A(i, m-j+1)
= Q
Конец цикла по j
Конец Если
Конец цикла по k
Конец цикла по i
Вывод матрицы
Конец
По-моему, так.
Камень!
Камень может быть носителем информации:)