применение оператора div и mod

@fox9008 · Регистрация: 12.11.2010

Author24 — интернет-сервис помощи студентам

определить вторую цифру дробной части частного от деления суммы первой и третьей цифр трехзначного числа на вторую цифру этого числа.
помогите написать решение,плз!

@Puporev · 12.11.2010, 20:02

Pascal

uses crt;
var a:integer;
    x:real;
    k:byte;
begin
clrscr;
repeat
writeln('Введите трехзначное число a=');
readln(a);
until(a>99)and(a<1000);
if a div 10 mod 10=0 then write('Деление невозможно, вторая цифра=0')
else
 begin
  x:=((a div 100)+(a mod 10))/(a div 10 mod 10);
  writeln('Результат деления суммы первой и третьей цифры на вторую=',x:0:5);
  k:=trunc(frac(x)*100)mod 10;
  write('Вторая цифра дробной части=',k);
 end;
readln
end.

@fox9008 0 / 0 / 0 Регистрация: 12.11.2010 Сообщений: 6
		1
	применение оператора div и mod 12.11.2010, 19:31. Показов 9250. Ответов 1 Метки нет (Все метки) определить вторую цифру дробной части частного от деления суммы первой и третьей цифр трехзначного числа на вторую цифру этого числа. помогите написать решение,плз! 0

	12.11.2010, 20:02

применение оператора div и mod

Решение