1) загоняем синий шарик в нишу
2) прогоняем мимо него все красные направо
3) выкатываем его из ниши и вытаскиваем его из жолоба
4) иди к п 1)
Иван-дурак - конь
Али-Баба - пещера с сокровищами
Мышка-норушка - Теремок
Иван-царевич - избушка на курьей ножке
Лиса - Колобок, Колобок, спой мне песенку! - Колобок
Королевич Елисей - Ветер, ветер! Ты могуч, ты гоняешь стаи туч Ты волнуешь сине море,Всюду веешь на просторе.
Не боишься никого,
Кроме бога одного.
Аль откажешь мне в ответе?
Не видал ли где на свете <span>Ты царевны молодой?</span> - Ветер
Королевич Елисей Месяц, месяц, мой дружок,Позолоченный рожок!
Ты встаешь во тьме глубокой,
Круглолицый, светлоокий,
И, обычай твой любя,
Звезды смотрят на тебя.
Аль откажешь мне в ответе?
Не видал ли где на свете Ты царевны молодой? - Месяц
<span>import java.lang.*<span>;
</span>import java.util.*<span>;
</span>import java.math.*<span>;
</span>
class Brainly{
public static void main(String[] args){
int m, n<span>;
</span> Scanner sc = new Scanner(System.in)<span>;
</span>
System.out.print("Enter m: "); m = sc.nextInt()<span>;
</span> System.out.print("Enter n: "); n = sc.nextInt()<span>;
</span>
int A[][] = new int[m][n]<span>;
</span>
for(int i = 0; i < m; i++){
for(int j = 0; j < n; j++){
float random = (float) Math.random()<span>;
</span> random *= -100<span>;
</span> int rand = (int) Math.ceil(random) + 200<span>;;
</span>
if((i + j) == rand){
System.out.println("A: " + i + " " + j)<span>;
</span> }<span>;
</span> }<span>;
</span> }<span>;
</span> }<span>;
</span>}</span>
<span>uses crt;
var a: array [1..15] of integer;
i: integer;
begin
writeln('Дан массив');
for i:=1 to 15 do
begin
a[i]:=random(41)-20;
write(a[i]:5);
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 15 do
if a[i] mod 2=0 then write(a[i]/2:5:1)
else write(a[i]*3:5);
end<span>.</span></span>
Ответ:
Объяснение:
1) program z1;
var a,sum:integer;
begin
a:=0;
sum:=0;
while (a<0) or (a=0) do
begin
sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
2) program z2;
const N = 10;
var i:integer;
var b,d:real;
var a:array[1..N] of integer;
begin
for i:=1 to N do
readln (a[i]);
for i:=1 to N do
write(a[i]:4);
writeln;
for i:=1 to N do
begin
b:=sqrt(a[i]);
d:=frac(b);
if d=0 then
write (a[i]:4);
end;
end.