"среди чисел a,b,c,d найти сумму целых чисел " составьте программу по этой на pascal abc

116

240

Посмотреть ответы 2

Ответы на вопрос:

xvukvkee

Информатика

4,7(11 оценок)

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