На 6 строчке где условие ошибка: "Ождался знак ;" Везде ставил ошибка все равно есть. Посмотрите пожалуйста. program govno2;
5-9 класс
|
var a, b, c: real;
Begin
read(a,b);
c:=a
if b>a then c:=b;
write(c)
End.
в предыдущей строке нет ;
поставьте, и все откомпилируется.
После Write (c) обязательно нужно поставить точку с запятой, вроде должно помочь.
Другие вопросы из категории
Рисунок из 256 цветов имеет объём 2.400 байт из скольки точек он состоит
11010010;
11001110;
11001010.
а) калькулятором
б) текстовым редактором
в) графическим редактором?
Читайте также
program govno3; var x, y, c: real; Begin read(x,y); if x>y then c:=x; x:=y; Y:=x; write(x,y) End.
линии. Чертёжник может выполнять команду Сместиться на (a, b) (где a, b – целые числа), перемещающую Чертёжника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Если числа a, b положительные, значение соответствующей координаты увеличивается, если отрицательные – уменьшается.
– целые числа), перемещающую Чертёжника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Если числа a, b положительные, значение соответствующей координаты увеличивается, если отрицательные – уменьшается.
Например, если Чертёжник находится в точке с координатами (2,3), то команда Сместиться на (-5, 2) переместит Чертёжника в точку (-3 ,5).
Запись
Повтори k раз
Команда1 Команда2 Команда3
конец
означает, что последовательность команд Команда1 Команда2 Команда3 повторится k раз.
Чертёжнику был дан для исполнения следующий алгоритм:
Повтори 3 раз
Сместиться на (-1,-5) Сместиться на (-2, -2) Сместиться на (4, 1)
конец
Какую команду надо выполнить Чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение?Ответ:
Сместиться на (–3, –6)
Сместиться на (-3, 6)
Сместиться на (-1, 2)
Сместиться на (1, -2)
виде линии. Чертежник может выполнять команду Сместиться на (a, b) (где a, b — целые числа), перемещаю- щую Чертежника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Если чис- ла a, b положительные, значение соответствующей координаты увеличивается, если отрицательные — уменьшается. Например, если Чертежник находится в точке с координатами (5, 3), то команда Сместиться на (2, –3) переместит Чертежника в точку (7, 0). Запись Повтори k раз Команда 1, Команда 2, Команда 3 конец означает, что последовательность команд Команда 1, Команда 2, Команда 3 повторится k раз.
Чертежнику был дан для исполнения следующий алгоритм:
Повтори 4 раза Сместиться на (2, 0), Сместиться на (0, 3), Сместиться на (–2, –3) конец
Какую фигуру нарисует Чертежник?
1) треугольник
2) квадрат
3) незамкнутую ломаную линию
4) параллелограмм
Необходимо удалить первый кратный 3 элемент массива.
program udalenie;
var i,n,k:integer;
a:array[1..1000] of integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
while i<=n do
if a[i] mod 3=0 then
begin
for i:=k to n-1 do
a[i]:=a[i+1];
n:=n-1; exit;
end;
for i:=1 to n do write(a[i],' ');
close (input);
close (output);
end.