среди чисел a,b,c,d найти сумму целых чисел составьте - вопрос №6643886 от сказка500 06.01.2020 06:42

Question

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

сказка500 · Answer

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.75S=3...

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