Всего Алина потратила одну тысячу триста пятьдесят два рубля одиннадцать копеек.
#include <iostream>
bool isSelfDivisible(int n) {
int k = n;
while (k > 0) {
if (k % 10 == 0 || n % (k % 10) != 0)
return false;
k /= 10;
}
return true;
}
int main() {
int L, K;
std::cin >> L >> K;
for (int i = L; i <= K; i++)
if (isSelfDivisible(i))
std::cout << i << std::endl;
return 0;
}
Пример ввода:
122 128
Пример вывода:
122
124
126
128
В паскале: Inc(n);
В С++: n++;
// F#
[<EntryPoint>]
let main argv =
let getArray =
let rand = new System.Random();
[1..4] |> Seq.map (fun x -> rand.Next 10)
let A = getArray;
let B = getArray;
let C = A |> Seq.mapi (fun i a -> a * a - (B |> Seq.nth i))
printf "%s" (Seq.fold (fun sum x -> sprintf "%s %d" sum x) "" C)
System.Console.ReadKey true |> ignore
0
<em><u>PascalABC.Net</u></em>
const
m=8;
n=11;
var
a,b,c:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив A');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4)
end;
Writeln
end;
Writeln('Исходный массив B');
for i:=1 to m do
begin
for j:=1 to n do
begin
b[i,j]:=Random(41)-20;
Write(b[i,j]:4)
end;
Writeln
end;
Writeln('Результирующий массив С');
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=a[i,j]+b[m-i+1,n-j+1];
Write(c[i,j]:4)
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходный массив A
-23 -14 -9 0 -13 -13 14 18 9 16 15
-3 21 -4 24 -23 -9 19 9 -16 -14 23
17 -25 -19 -25 8 -7 10 -23 -6 -23 -20
-20 -3 9 12 6 -17 3 -24 5 -25 -11
18 -21 -4 -20 -22 19 5 -15 -23 14 -2
-20 -5 -10 -7 -14 4 -4 -18 7 -3 13
-8 15 24 -10 -10 11 11 -20 -18 6 23
2 -17 -23 5 2 -11 17 -3 -16 25 -8
Исходный массив B
6 -6 -10 -3 -10 18 19 4 -3 -5 14
-17 10 5 -15 11 2 16 0 18 5 14
-14 15 -14 -7 6 -18 -15 -7 -13 -10 11
-20 -14 5 -19 16 -1 11 -15 2 -13 3
8 -18 -8 19 -4 1 -9 2 7 -18 9
12 -12 -4 -9 17 -8 17 -1 -16 -13 4
-7 10 -1 0 9 7 -3 9 12 -18 6
3 -14 -17 -19 8 6 5 -18 6 3 8
Результирующий массив С
-15 -11 -3 -18 -8 -7 22 -1 -8 2 18
3 3 8 33 -26 -2 28 9 -17 -4 16
21 -38 -35 -26 25 -15 27 -32 -10 -35 -8
-11 -21 16 14 -3 -16 -1 -5 -3 -43 -3
21 -34 -2 -35 -11 18 21 -34 -18 0 -22
-9 -15 -23 -14 -29 -14 2 -25 -7 12 -1
6 20 42 -10 6 13 22 -35 -13 16 6
16 -22 -26 9 21 7 7 -6 -26 19 -2