Если a > 1000 тогда a = a *0.85
в ином случае пишем сообщение что скидки нет
Program srof;
var a,b:integer;
begin
writeln('введите последовательность чисел закончив её введением 0');
readln(a);
b:=0;
c:=0;
while (a<>0) do
begin
if a mod 2 <>0 then
b:=b+a;
readln(a);
end;
writeln(b);
<span> end.</span>
1) <span>if a > b then begin a:= b ; end else b:=a;
Вот правильный вариант еnd; был лишний так как еще одного begin не было
2)
Var s:integer;k:real;
begin
s:=255;if s mod 2=1 then begin s:= s-1 ;k:= s/2 end
else k:=s ;writeln(k)
end.
Тут у вас ; с запятой были потеряны после исправления ответ 127</span>
Ответ - всемирная компьютерная сеть - Интернет
1) использовать Робот
алг
нач
вниз
нц пока не слева свободно и снизу свободно
закрасить
вниз
кц
нц пока не снизу свободно и не слева свободно
закрасить
вправо
кц
нц пока не снизу свободно и справа свободно
закрасить
вправо
кц
нц пока не снизу свободно и не справа свободно
закрасить
вверх
кц
нц пока не справа свободно
закрасить
вверх
кц
кон