Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Sveta789
0 / 0 / 0
Регистрация: 22.05.2014
Сообщений: 13
1

Не могу понять в чем ошибка и верно ли решена задача?

29.05.2014, 19:47. Просмотров 231. Ответов 1
Метки нет (Все метки)

для чисел из отрезка [a,b] подсчитать количество цифр в десятичной записи каждого целого неотрицательного числа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var x,a,k,m:integer;
begin
writeln('ввести k,m ');
readln(k,m);
for x:=k to m do
begin k:=1;
         while k>=1 do begin
           a:=a+1;
             k:= k div 10;
           
           end;
k:=k+1;
writeln(a);
end;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2014, 19:47
Ответы с готовыми решениями:

В чем ошибка я понять не могу? (PascalABC)
(Составить программу вычисления площади фигур) program ploshad; var A,B,C,D,S:real; ...

Не могу понять в чем моя ошибка
Что нужно сделать: Дано натуральное число n. Вычислить 2/1+3/2+4/3+...+n+1/n program nat4isl;...

Программа по паскалю, не могу понять в чем же ошибка
Решила простую задачу по паскалю, однако не все так хорошо, ругается на else var...

Не могу понять в чем ошибка, модуль EVENTS , PascalABC
Здрасте, форумчане, не могу понять в чем проблема, использовал модуль EVENTS , сделал две процедуры...

Ожидался конец файла. Никак не могу понять, в чем ошибка
program test; var A,B: smallint; Begin WRITELN('Введите число А'); READ(A);...

1
erl27
900 / 748 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
29.05.2014, 20:20 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  a, b, x, k, count: integer;
 
begin
  writeln('ввести a, b:');
  readln(a, b);
  for x := a to b do
  begin
    if x > 0 then begin
      k := x;
      count := 0;
      while k > 0 do 
      begin
        inc(count);
        k := k div 10
      end;
      writeln(x, ' количество цифр - ', count)
    end
  end
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2014, 20:20

Верно ли решена задача?
Каждая буква слова ИНФОРМАТИКА написана на разных карточках. Сколькими различными способами можно...

Верно ли решена данная задача
Задача: Напишите программу. считывающую цифры и составляющую из них целые числа. Например, число...

Задача math, не могу понять в чем ошибки
Приветствую, в универе задали сделать задачку, написать пример с парой переменных. Записать этот...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru