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

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

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

Question

Информатика

Вильгельм

10 марта, 18:18

Нужно подробное написание программы в 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.