Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 26.11.2018
Сообщений: 1
1

Дано трехзначное число, определите является ли двузначным числом сумма его цифр

26.11.2018, 22:25. Просмотров 500. Ответов 2
Метки нет (Все метки)


почему у меня пишет ошибка : Нет перегруженной подпрограммы с такими типами параметров
Pascal
1
2
3
4
5
6
7
Var
  a:integer;
Begin
read(a);
  if (a div 999) + (a div 10) + (a mod 10 >99) then write('YES')
  else write ('NO');
End.
Дано трехзначное число, определите является ли двузначным числом сумма его цифр.
вот такую задачу мне надо сделать помогите!!!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2018, 22:25
Ответы с готовыми решениями:

Дано трехзначное число.Определить, является ли сумма его цифр двузначным числом?
№1 Дано трехзначное число.Опредилить являеться ли сума его цифр двухзначным числом?

Дано двузначное (трехзначное) число. Написать программу определения, является ли сумма его цифр двузначным числом
Дано двузначное( трехзначное ) число. Написать программу определения: 1) является ли сумма его...

Дано трехзначное число. Определить является ли произведение его цифр трехзначным числом
Дано трехзначное число. Определить является ли произведение его цифр трехзначным числом. Заранее...

Дано натуральное число. Определить, является ли разность его максимальной и минимальной цифр чётным числом
Дано натуральное число. Определить, является ли разность его максимальной и минимальной цифр чётным...

2
1529 / 866 / 370
Регистрация: 07.04.2017
Сообщений: 3,477
26.11.2018, 22:41 2
У вас >99 в скобочках. Таким образом вы складываете число и результат сравнение, то есть boolean. Так делать нельзя - вот вам и выдаёт соответствующую ошибку.

Добавлено через 3 минуты
Вообще не понятно как ваша программа должно работать.
Так будет работать:
Pascal
1
2
3
4
5
6
7
8
9
begin
  var sum :=
    ReadlnInteger
    .ToString
    .Select(ch->word(ch)-word('0'))
    .Sum;
  
  writeln(sum.ToString.Length=2?'Yes':'No');
end.
0
Эксперт Pascal/Delphi
6571 / 4425 / 4718
Регистрация: 05.06.2014
Сообщений: 21,729
27.11.2018, 09:15 3
Pascal
1
2
3
4
5
6
7
8
var
  a, q: integer;
 
begin
  readln(a);
  q := (a div 100) + (a mod 100 div 10) + (a mod 10);
  writeln((q > 9) and (q < 100));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2018, 09:15

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Дано трехзначное число, найти произведение его цифр.
№1 Дано трехзначное число, найти произведение его цифр. №2 Дано натуральное число n (n&lt;=9999),...

Определить, является ли суммы цифр числа двузначным числом
Прошу помощи в решении простейшей задачи. Дано двузначное число. Определить, является ли суммы...

Выяснить, является ли сумма элементов четвертой строки массива двузначным числом
Дан двухмерный массив. Выяснить, является ли сумма элементов четвертой строки массива двузначным...

Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K
Определить, является ли целое число N четным двузначным числом, и делится ли оно на число K (...


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

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

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