Регистрация
775645
02.02.2023 01:09
Информатика
Есть ответ 👍

1.составить программу в паскале,которая предлагает ивану -царевичу выбрать правильное направление пути.у ивана-царевича есть три варианта дальнейшего пути: направо,-"коня потеряешь" налево,-"голову сложишь" вперёд,-"невесту найдёшь" 2.составить прогрмму,которая определяет положительное число или отрицательное. 3.дано целое число а.если значение а> 0,то необходимо его уыеличить на единицу.если в< 0,то уменьшить на единицу. зарание : )

229
264
Посмотреть ответы 2

Ответы на вопрос:

minikisa2007
minikisa2007
4,5(15 оценок)

program cvdcnio

uses crt;

var a: string;

begin

clrscr;

case a of

'направо': writeln('коняш');

'налево': writeln('голова');

'вперед': writeln('невестка');

readln

end.

 

program fcndkjn;

uses crt;

var a: integer;

begin

clrscr;

readln(a);

if a> 0 then writeln(+) else ;

readln;

end.

 

program fmc;

uses crt;

var a: integer;

begin

clrscr;

readln(a);

if a> 0 then writeln(a+1) else writeln(a-1);

readln;

end.   надеюсь тут в условии, не b< 0, а a< 0

 

 

daniilbabics
daniilbabics
4,6(78 оценок)
Var p,k,i: integer; f: boolean; begin   f: =false;   p: =32;   while not f do   begin   p: =p+1;   k: =2;   for i: =2 to p div 2 do     if p mod i = 0 then k: =k+1;   f: =k=32;   end; writeln(p); end. результат: 840

Популярно: Информатика