СРОЧНООООООООООООООООООООООООООООООООООООООО Верно ли решена задача? Сами определите...

Question

СРОЧНООООООООООООООООООООООООООООООООООООООО Верно ли решена задача? Сами определите количество и тип переменных. Дано натуральное число. Приписать к нему такое же. Program nature; Var Begin Writeln(‘Введите натуральное число’); Readln(a); If a< 9 then k:=1 else a< 100 then k:=2 else if a<1000 then k:=3 else if a<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).Координаты вводятся с клавиатуры.

Comments

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

Answer 1

Где a< 100 then k:=2, там должно быть " if a< 100 then k:=2"