Купить рекламу на форуме — 42 тыс руб за месяц, летом дешевле!
Пользователь
: 43
а можете написать полностью код задачи)
var a,i:byte; firstDigit,secondDigit:byte; S_dword=0; begin Write(‘Введите цифру [0..9] : ‘); readln(a); for i:=10 to 99 do begin firstDigit:=i mod 10; secondDigit:=i div 10; if ((firstDigit<>a) and (secondDigit<>a)) then S:=S+i; end; Writeln(‘Сумма = ‘,S); Readln; end.
Пользователь
: 52
uses crt; var a,b,n,k: integer; mas: array [1..1000] of integer; begin clrscr; write(‘Введите число N не больше 9’); readln(n); write(‘Введите нижнюю границу’); readln(a); write(‘Введите верхнюю границу’); readln(b); mas[1]:=a; for i:=1 to b-a do begin if ((mas[i] mod 10)<>n) and ((mas[i] div 10)<>n) do k:=k+mas[i]; mas[i]:=mas[i]+1; end; write(‘Сумма равна,k’); end.
Не проверял
Skype sanji-dim
Свою благодарность можно выразить на счёт R393628098492
Последний раз редактировалось sanji2010; 22.10.2014 в 00:40 .
Pascal (Урок 9) Деление div, mod
Пользователь
: 43
uses crt; var a,b,n,k: integer; mas: array [1..1000] of integer; begin clrscr; write(‘Введите число N не больше 9’); readln(n); write(‘Введите нижнюю границу’); readln(a); write(‘Введите верхнюю границу’); readln(b); mas[1]:=a; for i:=1 to b-a do begin if ((mas[i] mod 10)<>n) and ((mas[i] div 10)<>n) do k:=k+mas[i]; mas[i]:=mas[i]+1; end; write(‘Сумма равна,k’); end.
Не проверял
это жесть))) я даже не знаю откуда начать критику. что не строчка — то клиника.
: 26,238
У меня один только вопрос, а какую, собственно задачу решает (точнее, должен решать) ваш код. Откуда взялись границы?! Зачем тут массив?!
Для сравнения посмотрите код (c) abit из пост #11.
Вот он действительно находит сумму всех двухзначных чисел, в десятичной записи которых не присутствует заданная цифра N.
Источник: www.programmersforum.ru
Программа которая вычисляет сумму всех двузначных чисел паскаль
Привет Лёва Середнячок
составьте программу вычисления суммы всех двузначных чисел
Паскаль
Через While
Комментарии
а какое условие для while? вводится ноль? вводится не двухзначное число?
3 (2 оценки)
vladmor 5 лет назад
Светило науки — 1071 ответ — 0 раз оказано помощи
Лучшие помощники
За сегодня
Ежедневный Еженедельный Ежемесячный За 3 месяца
Мозг Отвечающий
Лёва Середнячок
Мозг Отвечающий
Лёва Середнячок
Мозг Отвечающий
Лёва Середнячок
Мозг Отвечающий
Сумма цифр числа
Лёва Середнячок
2023 ВашУрок
Этот сайт использует cookies. Политика Cookies Вы можете указать условия хранения и доступ к cookies в своем браузере.
Установи приложение ВашУрок
Источник: vashurok.com
Помогите по информатике .
Найди верный ответ на вопрос ✅ «Помогите по информатике . Найти сумму всех двузначных чисел в паскале. . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Источник: urokam.net