Vine
6 год назад
Составить программу которая определяет количество целых чисел среди 4 которые вводятся с клавиатуры
ОТВЕТЫ
Валерия
Oct 24, 2020
Program abc;
var i,k:integer;
b:array [1..4] of real;
begin
for i:=1 to 4 do read(b[i]);
for i:=1 to 4 do if frac(b[i]) = 0 then k:=k+1;
write (k);
end.
var i,k:integer;
b:array [1..4] of real;
begin
for i:=1 to 4 do read(b[i]);
for i:=1 to 4 do if frac(b[i]) = 0 then k:=k+1;
write (k);
end.
713
