Помогите плиз написать программы ** Паскале)))1.Составьте программу, проверяющую, верно...

Question

Помогите плиз написать программы на Паскале)))
1.Составьте программу, проверяющую, верно ли
утверждение, что введенное вами целое число является четным.
2.Стороны одного треугольника равны A1,B1,C1. Написать
алгоритм и программу проверки равенства ему другого треугольника.

3. Измеряя промежутки времени между вспышкой молнии и
раскатом грома, определить, удаляется или приближается гроза?.

Answer 1

1) Var a:integer;
Begin   
       Writeln('Введите число');     
           Readln(a);     
If (a mod 2  = 0) then writeln('Введённое число чётное.') 
 Else writeln('Введённое число чётное'); 
End.


2)  var A,A1,B,B1,C,C1:integer;
Begin   
     a:=4;b:=1;c:=7;   
        Writeln('Дан треугольник со сторонами A=4 B=1 C=7');   
        Writeln('Введите стороны треугольника A,B,C');     
         Readln(A1,B1,C1);     
If (A=A1) and (B=B1) and (C=C1) then writeln('треугольники равны') 
   Else writeln('треугольники не равны'); 
End.

3)var x,y:integer;
Begin 
   write('Введите первый промежуток: ');  readln(x); 
      write('Введите второй промежуток: ');  readln(y); 
if x   else write('Приближается');
end.

Comments

Var a:integer;

---

Проверить возможности нет, так что проверь сам.

---

Там где if замени на if (a mod 2 = 0)

---

Я дома, теперь я всё отредактировал и проверил. Всё правильно

---

это так и оставлять if (a mod 2 = 0)?

---

да, я уже всё отредактировал. "if (a mod 2 = 0) then" означает "если остаток от деления при делении А на 2 равен 0, то ..."

---

то есть этим мы проверяем делится ли число на 2 без остатка

---

Спасибо))) А как вторую делать?

---

я ведь написал всё