Нужно подробное написание программы в pascalABC

1) С клавиатуры вводится число в интервале от 1 до 999. Написать программу, которая определяет количество цифр во введенном числе.

2) Написать программу, которая определяет, какая из двух точек расположена ближе к началу координат. Координаты вводятся с экрана.

Question

Информатика

Эльвирка

14 апреля, 09:10

Нужно подробное написание программы в pascalABC

1) С клавиатуры вводится число в интервале от 1 до 999. Написать программу, которая определяет количество цифр во введенном числе.

2) Написать программу, которая определяет, какая из двух точек расположена ближе к началу координат. Координаты вводятся с экрана.

+2

Ответы (1)

Знаешь ответ?

Лота · Answer 1

program name;

var i, n, x, summa, count:integer;

nechet:boolean;

begin

Writeln ('Vvedite n: ');

readln (n); / /получаем n

summa:=0;

count:=0;

i:=1;

if (n mod 2 = 1) then nechet : = true else nechet : = false; / / проверяем четное число или нет

while i
if (nechet) then//если число нечентное

begin

summa:=summa+i*i*i; //прибавляем к сумме куб этого числа

end

else//если число четное

begin

summa:=summa+i*i; //прибавляем квадрат числа

end;

i:=i+1; //прибавляем число на 1

end;

writeln (' summa: ', summa); / /выводим сумму

readln ();

end.