Я мало чего понял из условия. Если я правильно понял, то мы вводим 15 чисел, и хотим чтобы компьютер нам выдал только нечтные их них.
Вот эта программа работать не будет по любому хотя бы из-за того, что на строке с меткой 50 стоит <u>NEXT</u>, хотя команды <u>FOR</u> до этого не было - ошибка.
Я написал програмку так как я понял с нечетными числами:
CLS
DIM a(15)
FOR i = 1 TO 15
INPUT a(i)
NEXT i
FOR i = 1 TO 15
IF (INT(a(i) / 2)) <> (a(i) / 2) THEN PRINT a(i)
NEXT i
END
Слегка не понял. "Если не смотрел" ну это ничего не меняет же.. файл уже отправлен
По логике у Васи остается 10, а у Коли становится 6. Т.к один файл был <u>скопирован</u> и отослан от Васи
{ Если в Вашей версии система "ругается" на sign, раскомментируйте
текст определения этой функции. В противном случае удалите все комментарии }
{
function sign(x:real):integer;
begin
if x<0 then sign:=-1
else
if x>0 then sign:=1 else sign:=0
end;
}
var
x1,x2,y1,y2:real;
begin;
Write('Введите через пробел координаты точки 1: ');
Read(x1,y1);
Write('Введите через пробел координаты точки 2: ');
Read(x2,y2);
if (sign(x1)=sign(x2)) and (sign(y1)=sign(y2))
then Writeln('Точки находятся в одной четверти')
else Writeln('Точки находятся в разных четвертях')
end.
<em><u>Тестовое решение:</u></em>
Введите через пробел координаты точки 1: -3.5 8.1
Введите через пробел координаты точки 2: -5 4
Точки находятся в одной четверти
Begin
for i:=1 to 30 do
a[i]:=random(50)-20;
for i:=1 to 30 do
if a[i]<0 then sum:=sum+a[i];
writeln(sum);
readln(k);
for i:=1 to 30 do
if (a[i]>0) and (a[i]<=k) then kol:=kol+1;
writeln(kol);
end.
