1. Информатика
  2. Дано натуральное число:

Дано натуральное число: определить а) количество цифр в нем б)сумму его цифр в)произведение его цифр г)среднее арифметическое его цифр д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр

BERE1337 BERE1337    3   02.06.2019 17:30    25

Ответы
saharok16 saharok16  03.07.2020 11:47
А)
var
N, k: longint;
begin
write('N=');readln(N);
k := 0;
while N > 0 do
begin
N := N div 10;
k := k + 1;
end;
write('k=', k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nika270106 nika270106  09.07.2019 05:30
25 ! с паскалем,! 1.выведите все двузначные числа,в записи которых все цифры одинаковые 2.выведите все двузначные числа,в записи которых все цифры одинаковы,суммы которых кратны...
anonymous18 anonymous18  21.11.2019 20:46
30 . какой процесс происходит, когда предложение число пятьсотпятьдесят пять разделить на пять» записывают в виде «555: 5»? а)декодирование информацииб)кодирование информациив)...
syr00 syr00  21.11.2019 20:43
10 с объяснением информатика​...
93angela93 93angela93  21.11.2019 20:39
Напишите программу на pascalabc для решения : мальчик решил накопить деньги. в первый месяц он отложил a рублей, а каждый следующий месяц он откладывал на d рублей больше,...
Matrixx666 Matrixx666  08.10.2019 20:40
Убегая в очередной раз от агента смита , нео врезался в трехзначное целое число 8810 - матрица выдала запись : « если цифры аги в системе с основанием g : a2aa , - до поменять...
mariuaivanova1 mariuaivanova1  08.10.2019 20:40
Во сне ученику приснились и ее решение . проснувшись утром , первое , что сделал ученик - взял лист бумаги и чисел ( n - количество чисел в строке ) , необходимо подсчитать...
demidvashenko demidvashenko  27.06.2019 21:40
Фрагмент алгоритма: s : =0 x: =1 while (x 5) do begin s: =s+x x : =x+1 end вычислить s равное 1) 63; 2)32; 3)31; 4) 10....
antnonova antnonova  13.10.2019 13:51
Запиши верные ответы. ( запиши данное число в двоичной, восьмеричной и шестнадцатеричной системе счисления) системы счисления: десятичная: 0 двоичная: восьмеричная: шестнадцатеричная:...
7077788 7077788  13.10.2019 13:58
Запишіть виконання наведеного фрагмента програми для табличної величини, значеннями елементів якої є числа: 0,5; -3; 2; -1,6. sum: =0; for i: = 1 to 4 do sum: =sum + a[i] *...
mirgin2002 mirgin2002  08.04.2021 09:23
В одномерном массиве все отрицательные элементы переместить в начало массива, а остальные – в конец с сохранением порядка следования. Дополнительный массив заводить не разрешается....

Популярные вопросы