1. Информатика
  2. Вводится натуральное

Вводится натуральное число. необходимо подсчитать сумму и количество цифр. результат вывести на экран через запятую. в программе должна быть процедура ввода и процедура для подсчёта суммы и количества цифр. обязательное использование цикла с постусловием! паскаль а

romatopovsky romatopovsky    2   17.03.2019 21:54    0

Ответы
МастерХ МастерХ  25.05.2020 21:46

var a,b,c,d,e: integer;

begin

write('Введите a=');

read(a);

b:=10;

c:= a+b;

writeln('Сумма равна ',c);

e:=0;

while c>0 do

 begin

  d:=c mod 10;

  c:=c div 10;

  e:=e+1;

 end;

 writeln('В числе ', e, ' цифр(-a/-ы)');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Aigerimmmmmmm Aigerimmmmmmm  20.08.2019 07:20
Видео файлы полностью занимают флеш память объемом 16 гигабайт сколько времени уйдет на просмотр всех видео файлов если просмотр одного видео файлы уходит 5 минут и каждый видео файл...
жека12рус жека12рус  20.08.2019 07:20
Один из первых массовых персональных компьютеров производства фирмы и был выпущенный в 1 1985 году имел оперативную память 512 килобайт сколько страниц текста можно было бы разместить...
аня2941 аня2941  06.04.2019 21:20
Вбанке производится учет своевременности выплат кредитов, выданных нескольким организациям. известна сумма кредита и сумма, уже выплаченная организацией. для должников установлены...
SuperNisas SuperNisas  06.04.2019 22:44
Какое количество страниц неформатированного текста можно поместить на дискету емкостью 1,44 мбайт?...
Vika192526 Vika192526  07.12.2020 08:52
Дана таблица “Счет к оплате . Запишите какой формат имеют ячейки диапазона С2:Ст. Цена общая стоимость130019001400)ТоварКоличество2 Сдобные булочки3 Пирожки4. Сони на розлив5 Разделочные...
trybak03 trybak03  07.12.2020 08:52
Найти обьем информации учебника литературы 7 класса​...
Chvik Chvik  07.06.2019 06:00
Вкниге 80 страниц. если соблюсти условие: книга=презентация в powerpoint сколько слайдов будет в презентации? а) 80 в) 40 с) 60 д) вопрос не имеет однозначного решения...
dariyaraindow47 dariyaraindow47  07.06.2019 06:00
Написать и отладить программу, вычисляющую семь значение функции y=x^2+1, где x-задано случайным образом в интервале (-4; 7)...
мия59 мия59  01.10.2019 05:40
Нужно найти максимальный элемент главной диагонали матрицы (делфи). делаю вот так, но ничего не получается procedure tform1.button2click(sender: tobject); var i,max,j: byte; begin...
олжик13 олжик13  01.10.2019 05:40
Составте программу в паскаль. ежегодный прирост рыбы в пруду состовляет x%.запасы рыбы оценены в а тонн. ежегодный план отлова в тонн наименьший запас рыбы ниже которого запас уже...

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