Проверьте пожалуйста на правильность.

Задача: Вычислить периметр в прямоугольнике.

Program Perimetr;
Var a, b, c, d: integer;
Begin
WriteLn ('Введите первое число');
ReadLn (a);
WriteLn ('Введите второе число');
ReadLn (b);
WriteLn ('Введите третье число'');
ReadLn (c);
d:=a*(b+c);
ReadLn;
End.

P.S. Задача делается в Турбо Паскаль и обязательно через тип integer.

1

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

  • Kitsu
  • почетный грамотей
2012-12-26T16:24:00+00:00

WriteLn ('Введите третье число'');

Двойные кавычки это, конечно, хорошо, но думаю машина не оценит(текст только в одинарных кавычках).

 

Также не очень ясно для чего вводится 3 числа, а не 2, на сколько я знаю, то периметр прямоугольника - 2(a+b).

 

Также нету вывода найденного периметра(ф-я writeln(d) - если d - периметр).