помогите пожалуйста(1) периметр треугольника равен P. длины двух сторон одинаковы меж

Помогите пожалуйста(

1) периметр треугольника равен P. длины 2-ух сторон одинаковы меж собой. отыскать длины сторон.
2) Вводится N целых чисел, отыскать количество чисел, которые больше нуля и кратны числу 5.

На языке Паскаль(АВС)

Задать свой вопрос
1 ответ
Const N=5;
var i, a, b: integer;
begin 
 for i:=1 to N do   
begin   
    readln(b);     
  if ((b gt; 0) and (b mod 5 = 0)) then   
 a := a + 1; 
end;   
writeln(a);
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт