program summation;
var i, summa: Word;
begin
summa := 0;
for i := 1 to 10 do
summa := summa + i;
WriteLn('l + 2 + .+ 10 = ', summa);
end.
На паскале:
Var x,y,max: integer;
Begin
Readln(x,y);
if x>y then
max:=x
else
max:=y;
Writeln(max);
End.
Вот так вот) там во втором "ввод a, b, c" лучше)
Var n, digit, ans : integer;
begin
read(n);
ans := 0;
while (n > 0) do begin
digit := n mod 10;
if ((digit = 1) or (digit = 3) or (digit = 9)) then
ans := ans + 1;
n := n div 10;
end;
writeln(ans);
<span>end.</span>