3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end.
Var n:integer;
begin
write('n = ');
readln(n);
if n mod 2 = 0
then n:=3*n else n:=2*n;
writeln('n = ',n);
end.
Пример:
n = 7
n = 14
begin
var m := 105;
var n := 15;
Println(1 + (m mod n) * (n mod m)); //1
end.
Var c:char;
begin
writeln('Введи скобку');
readln(c);
case c of
'[', '{', '(':writeln('Вы ввели открывающуюся скобку');
']', '}', ')':writeln('Вы ввели закрывающуюся скобку');
else writeln('Вы ввели не скобку, попробуйте еще раз');
end;
<span> end. </span>