СРОЧНОООООООООООООООООООООООООООООООООООООООВерно ли решена задачка? Сами обусловьте

СРОЧНООООООООООООООООООООООООООООООООООООООО

Верно ли решена задачка? Сами определите количество и тип переменных.

Дано естественное число. Приписать к нему такое же.

Program nature;

Var

Begin

Writeln(Введите естественное число);

Readln(a);

If alt; 9 then k:=1

else

alt; 100 then k:=2

else

if alt;1000 then k:=3

else

if alt;10000 then k:=4;

a:=a+a*k*10;

readln (a);

readln;

End.

5. Найти, лежит ли точка с координатами a,b внутри квадрата с координатами X1(-1,-1); X2(-1,1); X3(1,1); X4(1,-1).Координаты вводятся с клавиатуры.

Виолетта 2019-04-09 21:06:18

Ошибочно... Она работать не будет даже с исправлениями... Чтоб желая бы запускалась надобно после первого else добавить if и поменять 3 снизу строчку на writeln (a). Надобно разбираться с тем, что делать с k. Если k=2 и ты k*10, то получаешь 2*10=20, а никак не 100.