PascalABC.NET
#1
begin
var A := Range(1, ReadInteger('n=')).Where(x -> x mod 10 <> 0);
A.Where(x-> x mod (x mod 10) = 0).Println;
end.
#2
function NumSum(number:integer):integer;
begin
NumSum := 0;
while number > 0 do begin
NumSum += number mod 10;
number := number div 10;
end;
end;
begin
var A := Range(100, 999);
A.Where(x -> (x mod 7 = 0) and (NumSum(x) = 7)).Println;
end.
#3
function IsSimple(number:integer):boolean;
begin
IsSimple := number >= 2;
for var i := 2 to trunc(sqrt(number)) do if number mod i = 0 then IsSimple := false
end;
begin
var N := ReadInteger();
Print(IsSimple(N));
end.
package com.company;
import java.util.Arrays;
import java.util.Scanner;
public class Main {
public static void main(String[] args) {
Scanner sc = new Scanner(System.in);
System.out.print("Введите размер массива: ");
int size = sc.nextInt();
int[] myArray = new int[size];
System.out.print("Заполните элементы массива: ");
for(int i=0; i<size; i++) {
myArray[i] = sc.nextInt();
}
System.out.print("Одинаковые элементы: ");
for(int i=0; i<myArray.length; i++) {
for (int j=i+1; j<myArray.length; j++) {
if(myArray[i] == myArray[j]) {
System.out.println(j);
}
}
}
}
}
Объяснение:
Я использую язык программирования java, думаю переписать на нужный вам вы сможете.
См. вложение.