Как найти тысячи в паскале

Найди верный ответ на вопрос ✅ «Дано натуральное число n (n>999). Найти: число сотен в нём, число тысяч в нём. в Паскале abc …» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.

Искать другие ответы

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger(‘n=’);

 if n >= 1000 then Print(‘одна тысяча’)

 else

 begin

   var d1 := n mod 10;

   var d2 := n div 10 mod 10;

   var d3 := n div 100;

   var s := »;

   case d3 of

     1: s := ‘сто’;

     2: s := ‘двести’;

     3: s := ‘триста’;

     4: s := ‘четыреста’;

     5: s := ‘пятьсот’;

     6: s := ‘шестьсот’;

     7: s := ‘семьсот’;

     8: s := ‘восемьсот’;

     9: s := ‘девятьсот’;

   end;

   if d2 = 1 then

   begin

     case d1 of

       0: s += ‘ десять’;

       1: s += ‘ одиннадцать’;

       2: s += ‘ двенадцать’;

       3: s += ‘ тринадцать’;

       4: s += ‘ четырнадцать’;

       5: s += ‘ пятнадцать’;

       6: s += ‘ шестнадцать’;

       7: s += ‘ семнадцать’;

       8: s += ‘ восемнадцать’;

       9: s += ‘ девятнадцать’;

     end;

     TrimLeft(s).Println

   end

   else

   begin

     case d2 of

       0: s += »;

       2: s += ‘ двадцать’;

       3: s += ‘ тридцать’;

       4: s += ‘ сорок’;

       5: s += ‘ пятьдесят’;

       6: s += ‘ шестьдесят’;

       7: s += ‘ семьдесят’;

       8: s += ‘ восемьдесят’;

       9: s += ‘ девяносто’;

     end;

     s := TrimLeft(s);

     case d1 of

       1: s += ‘ один’;

       2: s += ‘ два’;

       3: s += ‘ три’;

       4: s += ‘ четыре’;

       5: s += ‘ пять’;

       6: s += ‘ шесть’;

       7: s += ‘ семь’;

       8: s += ‘ восемь’;

       9: s += ‘ девять’;

     end;

     TrimLeft(s).Println

   end

 end

end.

Здравствуйте, дорогие читатели и юные поклонники программирования. Что является важнейшим этапом  изучения программирования? Решение задач! Именно этим мы с вами сегодня и займемся. Целых десять задач  Integer11-20.  Если для вас эти задачи уже слишком легки, вы решаете их с закрытыми глазами и уже чувствуете, что готовы к следующему этапу обучения, то вам следует приготовиться. Следующий урок будет про особенности  PascalABC.NET.  Но не волнуйтесь, вместе с нами вы познаете почти все тонкости Паскаля в его современной интерпретации.

Integer11°. Дано трехзначное число. Найти сумму и произведение его цифр.

Program Integer_11;

var chislo, sotni, desyatki, edinizi, summa, proizv:integer;

begin
  write ('Введите число: ');
  readln (chislo);
  sotni:= chislo div 100;
  desyatki:= chislo mod 100 div 10;
  edinizi:= chislo mod 10;
  summa:= sotni + desyatki + edinizi;
  proizv:= sotni * desyatki * edinizi;
  writeln ('Сумма всех цифр числа: ', summa);
  writeln ('Произведение всех цифр числа: ', proizv);
end.

Integer12. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.

Program Integer_12;

var chislo, sotni, desyatki, edinizi:integer;

begin
  write ('Введите число: ');
  readln (chislo);
  sotni:= chislo div 100;
  desyatki:= chislo mod 100 div 10;
  edinizi:= chislo mod 10;
  chislo:= edinizi * 100 + desyatki * 10 + sotni;
  writeln ('Полученное число: ', chislo);
end.

Integer13. Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число.

Program Integer_13;

var chislo, sotni, ost:integer;

begin
  write ('Введите число: ');
  readln (chislo);
  sotni:= chislo div 100;
  ost:= chislo mod 100;
  chislo:= ost * 10 + sotni;
  writeln ('Полученное число: ', chislo);
end.

Integer14. Дано трехзначное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число.

Program Integer_14;

var chislo, edinizi, ost:integer;

begin
  write ('Введите число: ');
  readln (chislo);
  edinizi:= chislo mod 10;
  ost:= chislo div 10;
  chislo:= edinizi * 100 + ost;
  writeln ('Полученное число: ', chislo);
end.

Integer15. Дано трехзначное число. Вывести число, полученное при перестановке цифр сотен и десятков исходного числа (например, 123 перейдет в 213).

Program Integer_15;

var chislo, sotni, desyatki, edinizi:integer;

begin
  write ('Введите число: ');
  readln (chislo);
  sotni:= chislo div 100;
  desyatki:= chislo mod 100 div 10;
  edinizi:= chislo mod 10;
  chislo:= desyatki * 100 + sotni * 10 + edinizi;
  writeln ('Полученное число: ', chislo);
end.

Integer16. Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).

Program Integer_16;

var chislo, sotni, desyatki, edinizi:integer;

begin
  write ('Введите число: ');
  readln (chislo);
  sotni:= chislo div 100;
  desyatki:= chislo mod 100 div 10;
  edinizi:= chislo mod 10;
  chislo:= sotni * 100 + edinizi * 10 + desyatki;
  writeln ('Полученное число: ', chislo);
end.

Integer17. Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду сотен в записи этого числа.

Program Integer_17;

var chislo, sotni:integer;

begin
  write ('Введите число: ');
  readln (chislo);
  sotni:= chislo div 100 mod 10;
  writeln ('Найденная цифра: ', sotni);
end.

Integer18. Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду тысяч в записи этого числа.

Program Integer_18;

var chislo, tis:integer; //tis-название переменной, соответстующей разряду тысяч

begin
  write ('Введите число: ');
  readln (chislo);
  tis:= chislo div 1000 mod 10; 
  writeln ('Найденная цифра: ', tis);
end.

Integer19. С начала суток прошло N секунд (N — целое). Найти количество полных минут, прошедших с начала суток.

Program Integer_19;

var N, min:integer;

begin
  write ('Введите N: ');
  readln (N);
  min:= N div 60;
  writeln ('Количество полных минут, прошедших с начала суток: ', min);
end.

Integer20°. С начала суток прошло N секунд (N — целое). Найти количество полных часов, прошедших с начала суток.

Program Integer_20;

var N, hours:integer;

begin
  write ('Введите N: ');
  readln (N);
  hours:= N div 3600;
  writeln ('Количество полных часов, прошедших с начала суток: ', hours);
end.

Вот и все, дорогие друзья! Ждите новые уроки и заходите к нам на сайт почаще. Если вам понравилась эта статья, обязательно расскажите о нас вашим друзьям из любой социальной сети, может быть, они тоже хотят стать великими программистами!

Формулировка задачи:

Здравствуйте, программу писать не надо, просто подскажите, как сделать так, чтобы в var был integer до 1000.

Так не работает.

Код к задаче: «Ограничение числа integer до 1000»

textual

repeat
write('Введите целое число из диапазона 1..1000 c=');
readln(c);
until(c>0)and(c<=1000);