1. Информатика
  2. Найти сумму чисел 5 значного(или

Найти сумму чисел 5 значного(или 6 значного)числа в паскале
фаст, ддля 7 класса​

Kate00013 Kate00013    3   19.05.2020 19:34    3

Ответы
Александра2280193 Александра2280193  15.10.2020 01:00

var a,x:integer;

 i,s:integer;

begin

 writeln('введите целое число');

 readln( a ); x:=a;

 s:=0;

 while ( x<>0 ) do  

 begin

   s := s + (x mod 10);

   x := x div 10;

 end;

writeln( 'Сумма цифр числа ',a,' = ', s );

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
faire6 faire6  25.05.2020 00:04
Сколько бит в фразе Пушкин- это наше всё!...
marinamelnik19p07421 marinamelnik19p07421  25.05.2020 00:02
Какой цикл называется Циклом с заданным числом повторений ? WhileRepeatFor​...
diana1140 diana1140  25.05.2020 00:02
Напишите программы для перевода Робота из начального положения в клетку Б(см.рисунок к заданию 1).Найдите два решения задачи​...
Levix322 Levix322  24.05.2020 23:34
Здравствуйте,у меня проблема с компьютером.Дело в том,что когда при запуске ноутбука (Packard Bell),вылазит окно с восстановлением системы.Оно вылазит при любой попытке...
слава499 слава499  24.05.2020 01:27
Составить программу ввода с клавиатуры N целых чисел Program P1; const n=5; var x,i:integer; begin for i:=1 to n do readln(x); end....
Пингвинено25 Пингвинено25  24.05.2020 02:27
Создать файл, содержащий данные о фирмах: название фирмы, фамилия инициалы владельца (одно поле), адрес (три поля: город, улица, дом),телефон. Переписать в текстовый...
yakovenko040320 yakovenko040320  24.05.2020 02:27
Дана структура Речка. Поля: Название речки, длина, средняя глубина, судоходство (тип bool). Вывести на экран все записи про судоходные речки, длина которых больше 2км...
ftsvftsvftsv19 ftsvftsvftsv19  24.05.2020 12:53
по информатике по информатике >...
alligator5 alligator5  24.05.2020 12:51
Об’єкти яких типів може містити слайд презентації?...
kokocuk01 kokocuk01  24.05.2020 02:27
решить с объяснением: Автомобильный номер состоит из нескольких букв (количество букв одинаковое во всех номерах), за которыми следуют 6 цифр. При этом используется...

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