Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Дана квадратная матрица A порядка n Дана квадратная матрица A порядка n. Сформировать новую матрицу порядка n, в которой элементы верхней треугольной части матрицы равны соответствующим элементам исходной матрицы, уменьшенным в 2 раза, а остальные элементы возвести в квадрат. (ПАСКАЛЬ) https://www.cyberforum.ru/ pascal/ thread1675044.html	Написать программу вычисления функции Pascal Написать программу вычисления функции u = f(x,y,z). Целое значение x и действительные значения y,z задать с клавиатуры во время работы программы так, чтобы выражение имело смысл. u=\frac{4x^2+\cos 2y-\sqrt{\left(x^2-z^2 \right)+e^z\,}}{x+\ln 2y} u - стандартный; x - ширина поля 7; y - ширина поля 8, точность 6; z - ширина поля 10, точность 2.
Pascal Минуты с начала суток Дано число n. С начала суток прошло n минут. Определите, сколько часов и минут будут показывать электронные часы в этот момент. Программа должна вывести два числа: количество часов (от 0 до 23) и количество минут (от 0 до 59). Учтите, что число n может быть больше, чем количество минут в сутках. Пример input.txt \| output.txt 150 \| 2 30 1441 \| 0 1 https://www.cyberforum.ru/ pascal/ thread1674978.html	Pascal Максимум и минимум с использованием файлов Помогите решить задачку. Заданы два числа. Определите max и min. Исходные числа в файле input, а рез. output https://www.cyberforum.ru/ pascal/ thread1674976.html
Перемещение цифры в числе Pascal Есть трёхзначное число, нужно последнюю цифру числа поместить на первое место: 123 ==> 312 Исходное число находится в файле input.txt, а результат в output.txt. Помогите пожалуйста =)	Pascal Использовать процедуры https://www.cyberforum.ru/ pascal/ thread1674893.html Использовать процедуры в этой программе: const n=5 type mass=array of integer; var a:array of integer; i,j,s:integer; flag:boolean; begin writeln('Input matr');
Pascal Найти сумму https://www.cyberforum.ru/ pascal/ thread1674833.html Помогите решить задачу в Паскаль, я в нем просто не особо разбираюсь. Заранее спасибо. Даны массив Х1, ... , Х10 и число С. Определить: \sum_{i=1}^{10}\(({X}_{i}-C)/{{X}^{2}}_{i} \);\quad {\alpha}_{i}=y-{X}_{i}.	Pascal "Зеркально перевернуть" часть элементов массива Дан линейный целочисленный массив a. "Зеркально перевернуть" часть элементов массива, расположенных между первым из всех наименьших и последним из всех наибольших элементов массива.
Pascal Вставьте 3-й элемент перед каждым элементом массива, стоящим на четном месте 2. Создайте одномерный массив. Вставьте 3 элемент перед каждым элементом массива, стоящим на четном месте. Нужны только процедуры Добавлено через 22 часа 16 минут procedure del(var a: omas; var n: integer);//Название процедуры и Описание формальных параметров переменных var//Описание локальных переменных i, j, k: integer;//Описание локальных переменных begin//начало процедуры k:=a;... https://www.cyberforum.ru/ pascal/ thread1674666.html	Pascal Удалить из массива все элементы, равные заданному числу https://www.cyberforum.ru/ pascal/ thread1674665.html 1. Дан целочисленный массив размера N. Удалить из массива все элементы, равные заданному числу 6, и вывести размер полученного массива и его содержимое Нужны только процедуры
Найти сумму матриц Pascal Даны две вещественные квадратные матрицы А и В порядка n. Считая, что 1 ≤ i ≤ n, 1 ≤ j ≤ n, найти сумму матриц С = А + В, где сij = aij + bij	Pascal Найти линейную комбинацию трёх векторов 83. Даны три трехмерных вектора a, b и c, заданные своими координатами , вещественное число k. Найти вектор, равный ka + (1-k)b + k2c. Указание: реализовать функции умножения скаляра на вектор , суммы векторов. https://www.cyberforum.ru/ pascal/ thread1674604.html

ФедосеевПавел

Модератор

8476 / 4335 / 1642

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

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

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

02.03.2016, 12:23

Решение задач - Pascal - Ответ 8826486

02.03.2016, 12:23. Показов 5958. Ответов 60

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

Ответ

While

Pascal

program Summa;
 
var
  n, k:  integer;
  A, Amax, temp: longint;
  Count: longint;
  Sum, i: integer;
begin
  readln(n, k);
 
  {решение при помощи цикла while}
  Amax := 1;
  for i := 1 to n do
    Amax := Amax * 10;
  Amax := Amax - 1;
  Count := 0;
  {перебор чисел}
  A := 0;
  while (A <= Amax) do
  begin
    {вычисление суммы цифр текущего числа}
    Temp := A;
    Sum  := 0;
    while Temp <> 0 do
    begin
      Sum  := Sum + (Temp mod 10);
      Temp := Temp div 10;
    end;
    {если число подходит, то увеличиваем счётчик чисел}
    if Sum = k then
      Count := Count + 1;
    A := A + 1;
  end;
  writeln(Count);
end.

Вернуться к обсуждению:
Решение задач Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

02.03.2016, 12:23

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

Решение задач
https://www.cyberforum.ru/attachment.php?attachmentid=5407&d=1245233777...

Решение задач.
1)Ввести число.Определить сумму цифр во второй половине числа.(с использованием while repeat)...

Решение задач.
Народ помогите решить задачки! Завтра экзамен, а без них нет допуска! ХЕЛП ПЛИЗ!

Решение задач.
http://s005.***********/i210/1001/a1/5f1f28bfcbe7.jpg...

	02.03.2016, 12:23

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

02.03.2016, 12:23

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

Решение задач
как решить: 1-Напишите программу, которая по введенному числу N (1<N<10) вычислит и напечатает...

Решение задач по Pascal
Привет всем. Никогда не понимал информатику, а сейчас учусь в универе, и у нас тема идёт по...

Решение задач со строками
1.Рассматрива строку как массив символов, выполнить следующее. в тексте длины не более 255...

Пожалуйста! решение задач!
1.Найти все натуральные числа из промежутка от a до b,у которых количество делителей превышает...

Наверх