Uses graphabc; var i, j: integer; ar: array[1..10]of integer; b: boolean;
label l1; begin b := false; for i := 1 to 10 do ar[i] := random(10, 300); l1: b := false; for i := 1 to 10 do for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j) then begin b := true; ar[i] := random(30, 300); end; if b = true then goto l1; window.Init(0, 0, 800, 600, clwhite); window.IsFixedSize := true; randomize; lockdrawing; pen.Width := 5; for i := 1 to 10 do begin pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255)); drawcircle(400, 300, ar[i]); redraw; end; end.
1. uses crt; var n:string; begin read(n); writeln(strtoint(n[1])*strtoint(n[2])*strtoint(n[3])); end. 2. uses crt; var n,i:integer; res:double; begin read(n); for i:=1 to n do res:=res+cos(1/i); writeln(res:5:3); end. 3. uses crt; var n,i:integer; mult:real; a:array[1..100] of real; begin mult:=1; writeln('Input N and elements of array.'); read(n); for i:=1 to n do begin read(a[i]); if i mod 2=0 then mult:=mult*a[i]; end; writeln(mult); end. 4. uses crt; var n,i,sum:integer; a:array[1..100] of integer; begin writeln('Input N and elements of array.'); read(n); for i:=1 to n do read(a[i]); i:=1; while (a[i]<>0) and (i<=n) do begin if a[i] mod 2=0 then sum:=sum+a[i]; i:=i+1; end; writeln(sum); end.
Число десятков - целая часть деления на 10, а число единиц - остаток при делении на n. Для заданного числа n это можно записать как n // 10 и n % 10.
Код (Python 3):
n = int(input())
print((n // 10) * (n % 10))
Пример ввода:
23
Пример вывода:
6