Плиз подскажите что тут не так...Нужно написать программу в паскале АВС...Я ввожу это,а программа пишет ошибка ожидалось присваивание := Ничего не пойму...
5-9 класс
|
..
Задача такая:программа считает средний арифметический балл успеваемости ученика за четверть...например:математика 4,русский 5,информатика 5.......ничего не получяется
Перегрузи комп!!!!!!
вы запускали через abc net? на какой строчке выдает ошибку?
var n,i:integer;
a:string;
sr:real;
begin
readln(a);
n:=0;
sr:=0;
for i:=1 to length(a) do
if a[i] in ['2'..'5'] then begin
sr:=sr+strtoint(a[i]);
n:=n+1;
end;
sr:=sr/n;
writeln(sr:2:1);
end.
так попробуйте
нет,я открывала через АВС
спасибо,все получилось!
Другие вопросы из категории
а) сумму элементов массива, которые не превышают 20.
б)сумму нечетных элементов.
135,197,203
из 2 ичной в 10 тичную перевести
11101;10101;11011
Читайте также
говорить с девушками. Просто Артур с детства не выговаривает букву «р» и очень этого стесняется. Поэтому Артур старается не произносить лишний раз слова, в которых есть эта ненавистная ему буква.Однажды друзья познакомили Артура с девушкой по имени Нина (о, какое прекрасное имя!). Она была очаровательна и очень болтлива, поэтому Артуру почти не нужно было подбирать слова — она заполняла неловкую тишину за него. Разумеется, он пригласил ее в кафе выпить чашечку кофе. Артур даже продумал все свои реплики заранее: «Счастлив тебя видеть», «Ты сегодня восхитительна», «Да, конечно, я внимательно тебя слушаю», «И что дальше?», «Счет, пожалуйста» и, конечно, «Я позвоню тебе на днях, не скучай».Но, как известно, не бывает идеальных планов. Все шло как по маслу, но вдруг, сидя за столиком в кафе, Нина сказала, что ужасно не выспалась и не отказалась бы от N чашек кофе. И тут Артур понял, что он не обдумал заранее, как он будет делать заказ. Понятно, что нужно сказать что-то вроде: «Сколько-то чашек кофе, пожалуйста», но вот сколько же чашек нужно, чтобы Нина так и не поняла, что Артур не выговаривает букву «р»? Явно нужно заказать не меньше, чем N + 1
Ввести пять чисел и найти наибольшее из них.
Я тут написал кое-что ,но не знаю правильно ли :(
HELP ME.
program ru;
var a,b,c,d,e,max:integer;
begin
writln('Введите пять целых чисел');
if a>b then
begin
max:=a;
end
else begin
max:=b;
end;
if max>c then
begin
max:=max;
else begin
max:=c;
end;
if d>e then begin
max:=d;
end
else begin
max:=e;
end.
решение задачи полностью.
2.Дан текст из 600 символов . Известно ,что символы берутся из таблицы размером16*32.Ответ информационный объём текста в битах =5.400бит.нужно написать решение задачи полностью.
всегда пишет, что их 0. Что здесь не так? ПОМОГИТЕЕ!!!
var
x: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Writeln(x);
end.
Что в этой программе не так? Я хочу извлечь корень из х, а программа пишет "ОШИБОЧНЫЙ ИДЕНТИФИКАТОР".
Program tutor;
var
X, Z: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Z:=sqrt(X);
Writeln(x,z);
end.
И через "sqrt"- оператор не хочет выдавать корень из Х. Что я не так делаю? подскажите.