Информатика, опубликовано 2018-08-22 22:49:34 by Гость
"среди чисел a,b,c,d найти сумму целых чисел " пожалуйста составьте программу по этой задаче на pascal ABC
Ответ оставил Гость
Var
a,b,c,d:real;
s:integer;
begin
Write(Введите a b c d: ); Read(a,b,c,d);
if frac(a)=0 then s:=Trunc(a) else s:=0;
if frac(b)=0 then s:=s+Trunc(b);
if frac(c)=0 then s:=s+Trunc(c);
if frac(d)=0 then s:=s+Trunc(d);
Writeln(S=,s)
end.
Пример
Введите a b c d: 2.5 6 -3 -1.75
S=3
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на