Какая тут ошибка, посмотрите, пожалуйста program znacheniya uglov; uses crt; var x: integer; begin writeln('wedite znachenie gradusnoi mery ugla');
10-11 класс
|
read(x); if a=180 then writeln('razvernutyi') else writeln ('ne razvernutyi'); end.
program znacheniyauglov;
uses crt;
var x:integer;
begin
writeln('wedite znachenie gradusnoi mery ugla x');
read(x);
if x=180 then writeln('razvernutyi')//а поменял на х
else writeln ('ne razvernutyi');
end.
Другие вопросы из категории
var a, b, c : integer;
ответ будет 9
мне решение надо, я разобраться не могу
Читайте также
a,b,c:integer;
begin
writeln('введите три числа: ');
readln(a,b,c)
а дальше не знаю помогите пожалуйста!!!!)
код программы -
Program cikl;
Uses GraphABC;
Var
r:Integer;
begin
for r:=460 downto 100 do
begin
circle(620,480,r);
r:=r-35;
end;
FloodFill(170,480,clPurple);
FloodFill(205,480,clBlue);
FloodFill(240,480,clSkyBlue);
FloodFill(275,480,clGreen);
FloodFill(310,480,clYellow);
FloodFill(345,480,clLime);
FloodFill(380,480,clMoneyGreen);
FloodFill(415,480,clRed);
FloodFill(450,480,clMaroon);
FloodFill(485,480,clBrown);
FloodFill(620,480,clNavy);
End.
Ошибка которую выдаёт программа -
Program1.pas(9) : Нельзя изменять значение переменной цикла внутри этого цикла
program pasha;
uses crt;
var a:integer;
begin
clrscr;
repeat
write('Введите 4х-значное число a=');
readln(a);
until(a>555)and(a<=5555);
writeln('Данное число читается одинаково справа налево и слева направо');
write((a div 1000=a mod 10)and(a div 100 mod 10=a div 10 mod 10));
readln
end.
of Real;
begin
WriteLn('Введите число m[',i,']=');
readln(m[i]);
end;
Sum:=0;
For i:=1 to 5 do
Sum:=sum+m[i];
Writeln('сумма =',sum);
readln;
end.
натурального n и действительного x подсчитать сумму S=-1/2 + 1/2^2 - 1/2^3 +...+(-1)^n / 2^n
program summa;
uses crt;
var n,i:integer; s:real;
begin clrscr;
writeln ('vvedite n');
readln (n);
s:=0;
for i:=1 to n do
s:=s+exp(ln(-1)*i)/exp(ln(2)*i);
writeln ('s=', s);
readln
end.