Вычислить количество и среднее арифметическое вводимых четных и нечетных чисел

@Rafaira · Регистрация: 22.12.2010

Author24 — интернет-сервис помощи студентам

Помогите найти ошибку.
Задачка: вычислить количество и среднее арифметическое вводимых четных и нечетных чисел. При вводе нуля закончить работу.
Программка в кубасике дома идет, но в школе стоит улучшенный текстовой редактор KATE (linux) - похожа на упрощенный бейсик, там не хочет запускаться.

QBasic/QuickBASIC

CLS
1 PRINT "vvedite chislo";
INPUT A
IF a=0 THEN GOTO 2
IF A MOD 2 = 0 THEN k=k+1: s=s+a: GOTO 1
kn=kn+1: sn=sn+a: GOTO 1
2 IF k<>0 THEN c=s/k
IF kn<>0 THEN cn=sn/kn
 
PRINT "kolvo chetn chisel"; k
PRINT "kolvo nech chisel"; kn
PRINT "sr arifm chetn chisel"; c
PRINT "sr arifm nech chisel"; cn
END

@Quiet Snow · 28.12.2010, 07:41

Программка в кубасике дома идет, но в школе стоит улучшенный текстовой редактор KATE

Программы запускают на интерпритаторе, а создают *.exe* через компилятор и линковщик(могут быть в 1 лице), так что пытаться запустить код через текстовый редактор, это всё равно что пытаться жрать одежду вместо еды.

Программа ваша не компилирована(или вы просто не умеете нажимать CTRL-C CTRL-V), но ошибок я в ней не вижу, т.е. если у вас дома она работает можете смело её сдавать.

P.S: Дурацкая мания обучать студентов на лине, хотя бы виртуальную тачку с досом поставили, QBasic'а у них нету - вот лошьё.

@Quiet Snow 5001 / 1673 / 409 Регистрация: 25.04.2010 Сообщений: 4,624 Записей в блоге: 2
	28.12.2010, 07:41	2
	Программка в кубасике дома идет, но в школе стоит улучшенный текстовой редактор KATE Программы запускают на интерпритаторе, а создают .exe через компилятор и линковщик(могут быть в 1 лице), так что пытаться запустить код через текстовый редактор, это всё равно что пытаться жрать одежду вместо еды. Программа ваша не компилирована(или вы просто не умеете нажимать CTRL-C CTRL-V), но ошибок я в ней не вижу, т.е. если у вас дома она работает можете смело её сдавать. P.S: Дурацкая мания обучать студентов на лине, хотя бы виртуальную тачку с досом поставили, QBasic'а у них нету - вот лошьё. 0