Вычислить значение выражения - Turbo Pascal

  1. Задача: Заданы числа Х и У. вычислить значение выражения Х*У-Z, если известно, что Z представляет собой произведение Х*У, из которого вычеркнуты все цифры 5. Требуется написать код.


textual

Код к задаче: «Вычислить значение выражения - Turbo Pascal»

program xyz;
 
var x, y, z, t, i: integer;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  t := x * y;
  writeln('x * y = ', t);
  i := 1;
  z := 0;
  while t <> 0 do
    begin
      if abs(t mod 10) <> 5 then
        begin
          z := (t mod 10) * i + z;
          i := i * 10
        end;
      t := t div 10
    end;
  writeln('z = ', z);
  writeln('x * y - z = ', x * y - z);
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.286 из 5



Похожие ответы
  1. Здравствуйте ребят, нужна ваша помощь помогите составить программу: а) Y=е^x –sin(x) при Х=2.312; б) координаты используемой точки: (1.5;0.5). Cкрин задачи

  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Вычислить С при любых значениях x, а, b:

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

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Задание: Даны три числа a, b, c. Составить программу нахождения значения минимального отклонения каждого из них от их среднего арифметического. Данные выбрать произвольно.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.

  1. Напишите программу Pascal Вычислить объём конуса: