Паскаль 1 сумма четных чисел до 100 2 подчет гласных букв в слове мудрость 3 посчитать нечетные числа до 500 паскаль

1.                                          

program raf105;

var

 sum: integer;

begin

 for var i:=1 to 100 do

   if i mod 2 = 0 then sum:= sum + i;

 writeln('Вывод: ',sum);

end.

2.                                          

program raf105;

var

 glas: string:= 'аяоёуюыиэе';

 input: string;

 glasCount: integer;

begin

 write('Введите слово: ');

 readln(input);

 lowerCase(input);

 for var i:= 1 to length(input) do

   for var j:= 1 to length(glas) do

     if input[i] = glas[j] then inc(glasCount);

 writeln('Гласных букв: ',glasCount);

end.

3.                                          

program raf105;

var

 count: integer;

begin

 for var i:=1 to 500 do

   if i mod 2 <> 0 then inc(count);

 writeln('Вывод: ',count);

end.

PascalABC

1. Высказывание - предложение, выражающее суждение. Высказывание должно быть повествовательным предложением.
2. Дизъюнкция - логическое сложение, логическое ИЛИ, включающее ИЛИ. Строгая дизъюнкция образует сложное высказывание, истинное только в том случае, когда истинен лишь один из его членов.
3. Конъюнкция - логическая операция, по применению максимально приближенная к союзу "и". Конъюнкция истинна только в в одном случае- когда оба исходных высказывания истинны.
8. Импликация - бинарная логическая связка, по своему применению приближенная к союзам "если.. то.."
9. Логическое выражение - устное утверждение или запись, в которое, наряду с постоянными величинами, обязательно входят переменные величины (объекты).
все, что я нашла

ответ:  на Python

оба задания делаются внутри одного кода. Первая часть квадратов рисуется по верхней границе, вторая часть - по нижней. Если нужно будет разделить на 2 программы - в тексте оставил комментарии что нужно будет убрать.    :)))

from tkinter import*

class Rec(Frame):

   def __init__(self):

       super().__init__()

       self.initUI()

 

   def initUI(self):

       #k =30

       #b = 20

       k=int(input('Длина стороны первого квадрата : '))

       b=int(input('Шаг изменения длинны стороны последующих квадратов :'))

 

       lt =0  

       a=k  # 'a' добавлена потому что обе части задания в одном коде

       self.master.title("1")

       self.pack(fill=BOTH, expand=1)

       canvas = Canvas(self, bg="white")

               

#  Этот кусок кода для 1 части задания

       for i in range(0,4):

         canvas.create_rectangle(lt, 0, lt+a, a, outline="#000")

         lt = lt +a

         a = a+b

#  Конец 1 части

       

#  Этот кусок кода для 2 части задания

       lt=0

       a =0

       while a*4 < 200:

         canvas.create_rectangle(lt, 300, lt+a, 300-a, outline="#000")

         lt = lt +a

         a = a+b  

#  Конец 2 части                

       canvas.pack(fill=BOTH, expand=1)

def main():

   root = Tk()

   ex = Rec()

   root.geometry("300x300")

   root.mainloop()

 

if __name__ == '__main__':

   main()