muzaparovakamil

25.03.2023 16:38

Информатика

Есть ответ 👍

6. на улице, став в кружок, беседуют четыре девочки: аня, валя, галя, надя. девочка в зеленом платье (не аня и не валя) стоит между девочкой в голубом платье и надей. девочка в белом платье стоит между девочкой в розовом платье и валей. какое платье носит каждая из девочек?

142

399

Посмотреть ответы 2

Ответы на вопрос:

Влада19993737

Информатика

4,4(31 оценок)

Аня-голубой валя-белый галя-розовый надя-зеленый

егор1481

Информатика

4,7(20 оценок)

var

a: array [1..15] of integer;

s,i: integer;

begin

randomize;

for i: =1 to 15 do begin

a[i]: =random(80)-20;

write (a[i],' ');

s: =s+a[i];

end;

writeln;

writeln ('summa = ',s);

readln;

end.

vara: array [1..15] of integer; i: integer;

p: longint; beginrandomize;

p: =1; for i: =1 to 15 do begina[i]: =random(26)+5; write (a[i],' '); p: =p*a[i]; end; writeln; writeln ('proizvedenie = ',p); readln; end.

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(90)-50; write (a[i],' ');

if a[i]< 0 then k: =k+1; end; writeln; writeln ('kol-vo = ',k); readln; end.

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(37)+1; write (a[i],' '); if odd(a[i])=true then k: =k+1; end; writeln; writeln ('kol-vo = ',k); readln; end.

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(39)+2; write (a[i],' '); if a[i]< 20 then k: =k+1; end; writeln; writeln ('kol-vo = ',k); readln; end.

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(60)+5; write (a[i],' '); if a[i] mod 7 = 0 then k: =k+1; end; writeln; writeln ('kol-vo = ',k); readln; end.

var

a: array [1..15] of integer;

s,i: integer;

begin

randomize;

for i: =1 to 15 do begin

a[i]: =random(8)+3;

write (a[i],' ');

if a[i]=8 then s: =s+a[i]

end;

writeln;

writeln ('summa = ',s);

readln;

end.

var

a: array [1..15] of integer;

s,i: integer;

begin

randomize;

for i: =1 to 15 do begin

a[i]: =random(69)+5;

write (a[i],' ');

if a[i] mod 11 = 0 then s: =s+a[i];

end;

writeln;

writeln ('summa = ',s);

readln;

end.

var

a: array [1..15] of integer;

s,i: integer;

begin

randomize;

for i: =1 to 15 do begin

a[i]: =random(69)+5;

write (a[i],' ');

if odd(a[i])=false then s: =s+a[i];

end;

writeln;

writeln ('summa = ',s);

readln;

end.

10)

vara: array [1..15] of integer; i: integer;

p: longint; beginrandomize;

p: =1; for i: =1 to 15 do begina[i]: =random(69)+5; write (a[i],' '); if a[i] mod 3 = 0 then p: =p*a[i]; end; writeln; writeln ('proizvedenie = ',p); readln; end.

14)

vara: array [1..15] of integer; i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(26)+5; write (a[i],' '); end; writeln;

writeln ('==========================================================');

for i: =1 to 15 do

if odd(a[i])=false then write (a[i],' '); readln; end.

13)

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(85)+21; write (a[i],' '); end; writeln;

writeln('=========================================================');

for i: =1 to 15 do

if a[i] mod 21 = 0 then begin

write (a[i],' ');

k: =k+1;

end;

if k=0 then writeln ('elementov net'); readln; end.

12)

vara: array [1..15] of integer; k,i: integer; beginrandomize; for i: =1 to 15 do begina[i]: =random(37)+1; write (a[i],' '); end; writeln;

writeln('=========================================================');

for i: =1 to 15 do

if a[i]> 15 then write (a[i],' ');

readln; end.

11)

vara: array [1..15] of integer; i: integer;

p: longint; beginrandomize;

p: =1; for i: =1 to 15 do begina[i]: =random(15)+1; write (a[i],' '); if (a[i]> 2) and (a[i]< 5) then p: =p*a[i];

end; writeln; writeln ('proizvedenie = ',p); readln; end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.