Pascal ABC Найти сумму элементов массива, значения которых кратны 3 и 5.

program mas_krat_3i5;

const n=15;

var

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

i,s:integer;

begin

for i:=1 to n do

a[i]:=random(101);

for i:=1 to n do

write(a[i],' ');

writeln;

for i:=1 to n do

if (a[i]mod 3 =0)and(a[i]mod 5 =0)

then

s:=s+a[i];

write(s);

readln;

end.

Лиза должна открыть синюю коробку

Объяснение:

Составим таблицу:

         кр. ор. ж. з. с.

ка.                              

мя.                            

м.и.                            

па.                              

к.л.                            

Мы знаем, что куклы-lol в красной коробке, значит остальные предметы в ней быть не могут, а также куклы-lol не могут быть в других коробках:

         кр. ор. ж. з. с.

ка.      х                      

мя.     х                      

м.и.    х                      

па.      х                      

к.л.     v    х    х   х  х  

Зеленая коробка не стоит между мячами и мягкими игрушками и, если она будет стоять между ними, то карандаши будут ровно в середине. Прикинем, что зеленая коробка теперь стоит между оранжевой и желтой, тогда получается, что зеленая коробка стоит посередине. Значит, карандаши лежат в зеленой, а мячи - в оранжевой (тк рядом с оранжевой есть только красная и зеленая коробка):

         кр. ор. ж. з. с.

ка.      х     х    х   v  х

мя.     х     v         х    

м.и.    х     х          х    

па.      х    х         х      

к.л.     v    х    х   х  х  

Таким образом, мы знаем, что мягкие игрушки находятся между карандашами и пазлами, тогда:

         кр. ор. ж. з. с.

ка.      х     х    х   v  х

мя.     х     v    х    х  х  

м.и.    х     х    v    х  х  

па.      х    х    х    х  v  

к.л.     v    х    х   х   х  

from tkinter import *

def fun1(event):

My_window["bg"]="blue"

label=Label(My_window, text="Це вікно було створено в середовищі Прізвище (вкажіть ваше прізвище)", bg="blue", fg="white", font="Arial 14")

label.place(x=200, y=250)

My_window = Tk()

My_window.title("Вікно №7")

My_window.geometry("500х500")

but = Button(My_window, text="Розфарбуй")

but.place(x=200, y=200)

but.bind("<Button-3>", fun1)

В 3, 4 и 5 строках должна быть табуляция.

Настоятельно рекомендую всё это проверить в компиляторе. Делал всё по, скорее всего, Вашему школьному курсу. По вопросам пишите в комментарии. :)