Язык программирования: Pascal ABS.NET /////////////////////
Program composition;
Var a, b, P: integer;
begin
WriteLn ('Введите первое число');
Write ('a=');
ReadLn (a);
WriteLn ('Введите второе число');
Write ('b=');
ReadLn (b);
P:= a*b;
WriteLn ('Произведение:',P);
end.
ответ: число цифр во входном числе
DIM a(1 TO 10)
CLS
RANDOMIZE (TIMER)
s = 0
FOR i = 1 TO 10
a(i) = CINT(21 * RND - 11)
PRINT a(i);
IF a(i) MOD 2 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT "s = "; s