7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт
e=14
f=15
ответ 2
Ответ дал: Гость
program;
var
max,val: integer;
label
start, ends;
begin
max: =-50;
val: =50;
start:
if val> max then val: =val-10
if val=max then goto ends;
goto start;
ends:
end.
Ответ дал: Гость
ну в метро, или если ты турист то картой, не?
Ответ дал: Гость
program e7;
var x: integer;
begin
writeln('vvedite znachenie gradusnoi meri ugla');
readln(x);
if a=180 then writeln('razvernutii') else writeln('ne razvernutii');
readln;
end.
если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.
Популярные вопросы