Что то не так в задаче

[djyuroktm]

Написал программу, запускается, но что то не так. Не пойму что.

Вот условие задачи: Найти остаток от деления целого выражения а=(с+d)(2k-m) на 5 и вывести сообщение о величине остатка. Если остаток равен 0, присвоить а значение целой части выражения. При нечетном остатке напечатать "нечетное число", при четном - "четное число"

program algvetv4;
uses crt;
var a,c,d,k,m,p: integer;
begin
clrscr;
writeln ('Vvedi c d k m');
readln (c,d,k,m);
a:=(c+d)*(2*k-m) mod 5;
if a=0 then writeln ('a=',a mod 2)
else writeln ('a=',a);
writeln ('Ostatok=',a mod 2);
if a mod 2=0 then
writeln ('Ostatok chetniy')
else writeln ('Ostatok nechetnyi');
readkey
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.
Сделал усвоил)

[djyuroktm]

Хотелось бы чтобы программа выводила значение уравнения и остаток от деления и показывало, четный или нечетный остаток получился. А выводит вот что.

[kenwood2010]

var a,c,d,k,m,p: integer;
//тип integer - (это целочисленный тип) поменяй на double или float - с плавающей запятой;

[Utkin]

if a=0 then writeln ('a=',a mod 2)

Как я понял по условию задаче, а нужно вывести перед этой строкой. Это будет решение для условия:

Найти остаток от деления целого выражения а=(с+d)(2k-m) на 5 и вывести сообщение о величине остатка

А уже потом переходить к остальным условиям. И еще для условия

Если остаток равен 0, присвоить а значение целой части выражения

Если все выражение целое, то здесь явно что-то не так. Может имеется ввиду результат выражения? То есть (c+d)*(2*k-m) div 5 Это надо уточнить...

[djyuroktm]

Тип данных нельзя менять, тк в задаче указано что нужно найти остаток от деления именно ЦЕЛОГО выражения.

[djyuroktm]

Нужно получить "а", записать результат, если результат не целый, то вывести величину остатка и указать, четный он или нет.

[djyuroktm]

Выражение будет целым без деления на 5.

[djyuroktm]

Я разобрался, подскажите просто, как вывести величину остатка, а то у меня программа выводит само наличие остатка.

вот программа:

program algvetv4;
uses crt;
var a,c,d,k,m,p: integer;
begin
clrscr;
writeln ('Vvedi c d k m');
readln (c,d,k,m);
a:=(c+d)*(2*k-m) div 5;
writeln ('a=',a);
if a mod 2>0 then writeln ('ostatok=',a mod 2);
readkey
end.

[Serge_Bliznykov]

не понимаю, что у Вас за проблемы?!

и, главное, почти всё решено же!!
добавить только функцию trunc()
и собрать всё в кучу:

program algvetv4;
uses crt;
var a, c, d, k, m, p: integer;
begin
  clrscr;
  writeln('Vvedi c d k m');
  readln(c, d, k, m);
  p := (c + d) * (2 * k - m);
  WriteLn('resultat vyrageniya (c+d)*(2*k-m) raven ',p);
  a := p mod 5;
  writeln('Ostatok=', a);
  if (a mod 5) = 0 then 
    { Если остаток равен 0, 
        присвоить а значение целой части выражения}
     begin
       a := trunc(p);
       writeln('celay chast` =', a);
     end;

  if a mod 2 = 0 
    then writeln('Ostatok chetniy')
    else writeln('Ostatok nechetnyi');

  readkey
end.

[djyuroktm]

Во, спасибо, вот я про trunc совем забыл!) Теперь всё нормально.

Тема закрыта.