Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Составить блок схему к готовому коду Помогите с блок-схемой, пожалуйста: program N1; uses crt; const n=5; m=6; var A:array of Real; i,j:Integer; min,max,sred:Real; begin Randomize; for i:=1 to n do https://www.cyberforum.ru/ turbo-pascal/ thread1428664.html	Turbo Pascal Построить график функции Пожалуйста помогите построить график функции y=\frac{5+xx}{x(x+1)} с интервалом шагом 0,25
Turbo Pascal Определить количество "особых" элементов K массива С Всем привет. Помогите пожалуйста написать программу. Условие: Дан двумерный массив С, размерности - 4*4. Определить количество "особых" элементов K массива С, считая элемент особым, если элемент больше суммы остальных элементов своего столбца. Программа должна быть написана с использованием процедур и функций. Заранее спасибо) https://www.cyberforum.ru/ turbo-pascal/ thread1428580.html	Turbo Pascal Реализовать заставку: отскок фигуры от края экрана https://www.cyberforum.ru/ turbo-pascal/ thread1428537.html Может кто встречал программу, в которой осуществляется имитация заставки dvd-плеера: фигура движется до края экрана, а потом "отскакивает" от него. Буду благодарен
Turbo Pascal Вычислить максимальное значение из элементов массива, имеющих четные индексы Создать одномерный массив из 16 элементов. Вычислить максимальное значение из элементов, имеющих четные индексы.	Turbo Pascal Определить количество слов в заданном предложении, которые содержат 3 буквы "е" В заданном предложении, где слова состоят из латинских букв, слова отделяются пробелами, за последним словом точка, определить кол-во слов, которые содержат 3 буквы ""е"". https://www.cyberforum.ru/ turbo-pascal/ thread1428478.html
Turbo Pascal Построить график функции https://www.cyberforum.ru/ turbo-pascal/ thread1428431.html ПОМОГИТЕ ПОЖАЛУЙСТА!)))) нужно построить график функции f=x^2+x+1/x x шаг x=0.05	Из группы подряд идущих элементов с одинаковыми значениями оставить только первый Turbo Pascal Дан список из n целых чисел a1,a2,...,an. Из группы подряд идущих элементов с одинаковыми значениями оставить только первый.
Turbo Pascal Вывести на экран элементы списка, которые больше своих соседей https://www.cyberforum.ru/ turbo-pascal/ thread1428399.html Дан список из n целых чисел a1,a2,..,an. Вывести на экран те элементы списка, которые больше своих соседей.	Turbo Pascal Проверьте работу программ введя исходные данные Задание «1»: 1. Запустите программы описанные ниже в среде программирования Turbo Pascal 2. Проверьте работу программ введя исходные данные 3. Сделайте скриншоты работы программы 4. Запишите в тетради или текстовом документе для чего предназначены эти программы 1) Program Two; Var s:string; Begin Writeln (‘Как Вас зовут?’); https://www.cyberforum.ru/ turbo-pascal/ thread1428208.html
Turbo Pascal Управление текстовыми окнами: перемещение окна по экрану Нужно изменить текст программы WinDemo (служебная информация должна вводится в служебном окне, после ввода информации оно убирается). Добавить в нее следующую процедуру: Ввести команду перемещения окна по экрану с помощью клавиш .	Turbo Pascal Все варианты трехзначных чисел, которые можно составить из двух цифр https://www.cyberforum.ru/ turbo-pascal/ thread1428157.html Заданы две цифры от 0 до 9. Получить все возможные варианты трехзначных чисел, которые можно составить из этих двух цифр (цифры могут повторяться).

bormant

Модератор

7769 / 4598 / 2823

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

Сообщений: 13,076

Записей в блоге: 1

23.04.2015, 17:32

Найти цифру, на которую оканчивается число a^b - Turbo Pascal - Ответ 7520844

23.04.2015, 17:32. Показов 10451. Ответов 14

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

Ответ

Но с учетом того, что b может быть достаточно велико, лучше так (использован алгоритм быстрого возведения в степень):

Pascal

var
  t, b: Longint;
  a, c: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  Assign(output,'output.txt'); Rewrite(output);
  ReadLn(t,b); a:=t mod 10; c:=1;
  while b>0 do begin
    if Odd(b) then begin
      c:=a*c mod 10; Dec(b);
    end;
    a:=a*a mod 10; b:=b div 2;
  end;
  WriteLn(c);
end.

Вернуться к обсуждению:
Найти цифру, на которую оканчивается число a^b Turbo Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.04.2015, 17:32

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

Найти в файле цифру на которую оканчивается число A^B
это задача на файлы. Требуется написать программу, которая находит цифру, на которую оканчивается...

Программа которая находит цифру, на которую оканчивается число m в степени n
Дано два целых положительных числа: m и n. Требуется написать программу которая находит цифру, на...

Некоторое число оканчивается на 2. Если же эту его последнюю цифру переставить на первое место, то число удвоится. Найти это число
Некоторое число оканчивается на 2. Если же эту его последнюю цифру переставить на первое место, то...

Найти число элементов, которые начинаются с той же буквы, на которую оканчивается первый элемент
Задайте строковый массив.Определите и выведите на экран кол-во элементов,которые начинаются с той...

	23.04.2015, 17:32

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.04.2015, 17:32

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

Оканчивается ли число на цифру 7
Дано число. Определить, оканчивается ли данное число на цифру 7

Дано натуральное число. Определить на какую цифру чётную или нечётную оканчивается число
Дано натуральное число. Определить на какую цифру чётную или нечётную оканчивается число Прошу...

Дано число. Определить, оканчивается ли данное число на цифру 7
4. Дано число. Определить, оканчивается ли данное число на цифру 7.

Проверка на какую цифру оканчивается число
Задание: сделать проверку, является ли число кратным и при этом не заканчиваться цифрой 3....

Наверх