Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal напечатать все цифры напечатать все цифры числа 3^512 https://www.cyberforum.ru/ turbo-pascal/ thread716662.html	Напечатать фразу «к ворон» Turbo Pascal Дано неотрицательное число к, не превышающее 10000. Напечатать фразу «к ворон», подставив вместо к соответствующее числительное.
Turbo Pascal Непонятная ошибка. TMT Pascal выдает: expected AND or statement, а turbo pascal просит поставить ";" https://www.cyberforum.ru/ turbo-pascal/ thread716653.html Program board; Uses CRT; Var x, count, hod: integer; y: string; Begin Writeln ('vvedite znachenie po gorizontali (1, 2, 3, 4, 5, 6, 7, 8)'); Readln (x); Writeln ('vvedite znachenie po vertikali (a, b, c, d, e, f, g, h)'); Readln (y); hod := 0; count := 0;	Turbo Pascal В цикле печатать разности 1-го и 2-го элементов каждого столбца матрицы Дана матрица А с 2 строками и 10 столбцами, каждый из которых соответствует одной из 10 учебных групп. 1-й и 2-й элементы столбца соответственно представляют число студентов женского и мужского пола в группе. Начиная с первого столбца, в цикле печатать разности 1-го и 2-го элементов каждого столбца, прекращая выполнение цикла и печатая сообщение "некорректность", если оба элемента столбца... https://www.cyberforum.ru/ turbo-pascal/ thread716624.html
Turbo Pascal Создать две очереди Создать две очереди с элементами – фамилиями клиентов. Удалить из второй очереди клиентов, стоящих также и в первой.	Turbo Pascal Дан фрагмент программы, на вход которой подали двумерный массив mas, размером 6 на 6 элементов: http://rudb.org/img/2012_12/02/24587286-a132-4d42-9f02-503d3ed98bf7.jpg c:=0; d:=0; for i:=1 to 6 do for j:=1 to 6 do begin if mas=0 then c:=c+1 https://www.cyberforum.ru/ turbo-pascal/ thread716572.html
Turbo Pascal Поиск числа, цифры которого есть множителями заданного числа Ваша задача — найти минимальное положительное целое число Q такое, что произведение цифр числа Q в точности равняется N. Пример 10 - 25 Исходные данные Целое число N (0 ≤ N ≤ 109). Результат Выведите целое число Q. Если такого числа не существует, выведите −1. Я думаю, что-то можно сделать с моим недоалгоритмом, но сейчас времени нет. https://www.cyberforum.ru/ turbo-pascal/ thread716532.html	Возведение числа в целую степень Turbo Pascal 1) Составьте программу для вычисления степени числа a с целым показателем n. Возведение числа a в степень n определяется последовательным накоплением произведения, т.е. число a умножается само на себя n раз. Нужно учесть, что показатель n может быть как положительным, так и отрицательным числом. Следовательно, если n – положительное число, то конечное произведение и будет являться ответом, в...
Turbo Pascal Сумма отрицательных и положительных целых чисел https://www.cyberforum.ru/ turbo-pascal/ thread716511.html Помогите решить задачку :) Дано: В массиве из 20 целых чисел, найти: Сумму положительных и отрицательных чисел.	Turbo Pascal Вывести номера тех пар строк квадратной матрицы, в которых расположение отрицательных элементов совпадает. Вывести на экран номера тех пар строк квадратной матрицы, в которых расположение отрицательных элементов совпадает. Добавлено через 44 минуты Помогите пожалуйста! Добавлено через 2 часа 35 минут Вверх. https://www.cyberforum.ru/ turbo-pascal/ thread716502.html
Turbo Pascal Поменять местами диагональные элементы и минимальные элементы в соответствующей строке матрицы Поменять местами диагональные элементы и минимальные элементы в соответствующей строке матрицы А(М,М), М <= 100.	Turbo Pascal Найти все слова, содержащие наибольшее количество согласных букв Найти все слова, содержащие наибольшее количество согласных букв. https://www.cyberforum.ru/ turbo-pascal/ thread716494.html

Krasotka130793

1 / 1 / 0

Регистрация: 16.09.2012

Сообщений: 157

02.12.2012, 19:09 [ТС]

Определить делится ли оно на 95? - Turbo Pascal - Ответ 3790302

02.12.2012, 19:09. Показов 1026. Ответов 3

Метки (Все метки)

Ответ

Pascal

uses crt;
var c:array[1..20] of integer;
i,r:integer;
begin
clrscr;
for i:=1 to 20 do readln(c[i]);
for i:=1 to 20 do write (c[i]);
r:=c[1];
for i:=2 to 20 do
begin
r:=r*20+c[i];
r:=r mod 95;
end;
if r=0 then writeln('yes') else
if r<>0 then writeln ('no');
readln ;
end.

Подскажите что здесь не правильно?

Вернуться к обсуждению:
Определить делится ли оно на 95? Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

02.12.2012, 19:09

Готовые ответы и решения:

Ввести число Х и определить, делится ли оно на 2, на 5, на 3
Доброго вечера Уважаемые Форумчане, помогите пожалуйста с задачей!: Ввести число Х и определить,...

Для четного введенного числа определить, делится ли оно на 10, для нечетного - делится ли оно на 5
вечер добрый,помогите с програмкой на с++ условие:с клавиатуры вводиться целое число,для четного...

Ввести число Х и определить, делится ли оно на 2, на 5, на 3
Ввести число Х и определить, делится ли оно на 2, на 5, на 3. Создала поле для ввода числа...

Ввести число Х и определить, делится ли оно:
Ввести число Х и определить, делится ли оно: 1) на 2, 2) на 3, 3) на 5. Результаты...

	02.12.2012, 19:09

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

02.12.2012, 19:09

Помогаю со студенческими работами здесь

перевод строки в число, определить делится ли оно на 4
пожалуйста помогите! нужно определить делится ли строка на 4. я так понял что функция atoi не...

Если число делится на 6, то оно делится на 2 и на 3. Доказать на ИП 1-ого порядка
Чтобы доказать утверждение что если число делится на 6, то оно так делится на 2 и на 3, я введу...

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

На машине Тьюринга записано число в двоичной сист.счисления. Как определить, делится ли оно на 3
НА машине Тьюринга записано число в двоичной сист.счисления, как определить делится ли оно на 3?...

Наверх