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

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

1

Ответы и объяснения

2013-12-02T05:14:45+00:00
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<y then write('Отдаляется')
   else write('Приближается');
end.
это так и оставлять if (a mod 2 = 0)?
да, я уже всё отредактировал. "if (a mod 2 = 0) then" означает "если остаток от деления при делении А на 2 равен 0, то ..."
то есть этим мы проверяем делится ли число на 2 без остатка
Спасибо))) А как вторую делать?
я ведь написал всё