ввести 3 числа а,b,c. Если не одно число не равно нулю, то написать в переменную k сред. арифметическое

[захаркин]

Уважаемые. Помогите в чем ошибка. Задание: ввести 3 числа а,b,c. Если не одно число не равно нулю, то написать в переменную k сред. арифм..
Пишу в турбо паскале 7.1

 File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help
╔═[■]═══════════════════════════════ 2.PAS ══════════════════════════════1═[↕]═╗
║var a,b,c:integer; k:real;                                                    ▲
║begin                                                                         ■
║readln(a,b,c);                                                                ▒
║if (a>0)and(b>0)and(c>0) then                                                 ▒
║                                                                              ▒
║k:=(a+b+c)/3;                                                                 ▒
║writeln(k:6:1                                                                 ▒
║)                                                                             ▒
║end.                                                                          ▒

если ввожу в одно из условий 0, то дает ответ 0

Ввожу в абспаскале

var a,b,c:integer; k:real;
begin
  writeln('введите 3 числа');
  readln(a,b,c);
  if 
  (a>0)and( b>0)and (c>0)
   then
  writeln(k);
  k:=(a+b+c)/3;
end.

если одно 0, то ничего не выводит. если любые 3 числа, во всех случаях ответ 0

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Serge_Bliznykov]

в турбо вы сначала вычисляете k, а потом его выводите.

а в Pascal ABC сначала выводите k (там ноль) и только потом вычисляете.
Это неправильно. Нужно наоборот.

кроме того, условие Вы проверяете не то, что Вам задано.
Вам нужно проверять "число не равно нулю", а Вы проверяете, что число положительное (больше нуля).

[Alex11223]

Так вы выводите k до присваивания значения, надо наоборот.

и в begin end оба действия заключить, иначе только первое относится к if, а второе всегда выполняется.

[захаркин]

Сообщение от Serge_Bliznykov

в турбо вы сначала вычисляете k, а потом его выводите.

а в Pascal ABC сначала выводите k (там ноль) и только потом вычисляете.
Это неправильно. Нужно наоборот.

кроме того, условие Вы проверяете не то, что Вам задано.
Вам нужно проверять "число не равно нулю", а Вы проверяете, что число положительное (больше нуля).

Благодарю.

[захаркин]

Сообщение от Alex11223

Так вы выводите k до присваивания значения, надо наоборот.

и в begin end оба действия заключить, иначе только первое относится к if, а второе всегда выполняется.

Благодарю.