Var a:array[1..10] of integer;k,n,i:integer;begin k:=0; n:=0; for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if a[i] mod 13=0 then k:=k+1 else n:=n+1; writeln(k,' ',n); // k-делятся на 13 n-не делятся на13 readlnend.
//PascalABC.NET
begin
var product: int64;
product := 1;
var seq := range(1, 99).Where(x -> x mod 2 <> 0).Select(x -> x * x);
foreach var x in seq do
product := product * x;
write(product);
end.
Ответ:
n = int(input('введите число'))
e = n % 10
d = n // 10
print(e, ' единиц ', d, ' десятков')
Объяснение:
Существует всего 3 вида адресации ячеек:
1. Абсолютная.
2. Относительная.
3. Смешанная.