Program chisla;
uses crt;
var a,b,n,k: integer;
begin
b:=0;
Writeln('Нахождение чисел кратным 2-м');
Writeln('Введите интервал чисел: ');
Readln(n,k);
for a:=n to k do
if (a mod 2=0) then
begin
write(a,' ');
b:=b+1;
end;
end.
1. 4 файла, 4 папки, Е:\БАЙКАЛ\ВЕТРЫ\Сарма.jpeg
2. Байкал
3. М, О, Б, Е, Л, Т, Ц
4. Недобрала, подобрел (так как два символа до и три символа после слова "добр")
Ответ Нос (3) потому что 10111000 нельзя первым ставить остальные буквы как кроме «н», а дальше все понятно.
begin
var k := 10;
var x := ReadArrReal('Введи 10 элементов Х:', k);
var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;
y.Println;
end.
<span>import java.util.Arrays<span>;
</span>import java.util.Random<span>;
</span>
public class Task2 {
final static int BOUND = 100<span>;
</span> final static int SIZE = 10<span>;
</span>
public static void main(String[] args) {
int[] a = new int[SIZE]<span>;
</span> Random random = new Random()<span>;
</span> for(int i = 0; i < SIZE; a[i] = random.nextInt(BOUND), i++)<span>;
</span> Arrays.stream(a).forEach(x -> System.out.print(x + " "))<span>;
</span> System.out.println("\n" + Arrays.stream(a)
.filter(x -> x > 30 && x < 70).toArray().length)<span>;
</span> }
}
</span>