Question

Cоставьте пожалуйста программку в Паскале ABC)
Задание:
Запросить с клавиатуры целое 6-значное число и напечатать сумму его цифр.Если вводится не то число,то сообщить об этом и повторить ввод.

Answer 1

Вот программа на Паскале.
Работает так:
Вводится число с проверкой (в скриншоте представлены случаи, когда число вводилось 5-значное, потом 7-значное, и только при 6-значном числе программа стала проводить вычисленияю
Для удобства число превращали в строку, а потом полученные символы опять в цифры...

Answer 2

Вот эта программа.Мне знакомый только что составил.

Answer 3

Можешь пожалуйста составить блок схем в ворде и прислать скрин?

Answer 4

А вот так:       

Answer 5

var a, s : longint;
begin
    repeat
    write(' a = ');
    readln(a);
    if (a<100000) or (a>999999) then
      writeln(' 100000<a<999999  !!!');
  until (a>=100000) and (a<=999999);
  s:=0;
  while a>0 do
    begin
      s:=s + (a mod 10);
      a:=a div 10;
    end;
  write(' S = ',s);
  ReadLn;
end.

Answer 6

Твой знакомый составил программу для НЕЧЕТНЫХ чисел ОКАНЧИВАЮЩИХСЯ цифрой 7. Я переделал программу. У меня в Паскале работает.   И еще. Если я нарисую блок-схему, то как я ее вставлю,  надпись "изменить" не горит.....