Предмет: Информатика,
автор: Chopasebat
"среди чисел a,b,c,d найти сумму целых чисел "
пожалуйста составьте программу по этой задаче на pascal ABC
Ответы
Автор ответа:
0
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
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
Похожие вопросы
Предмет: История,
автор: anadi24
Предмет: Алгебра,
автор: fairyofknowledge
Предмет: Математика,
автор: moldiromarova001
Предмет: Алгебра,
автор: Magicsister