привет всем! вот задача на паскаль
Составить программу нахождения количества чисел кратных трем из шести вводимых с клавиатуры.
интересно что решение требуется БЕЗ МАССИВА с циклом фор.
помогите , или идею дайте как это сделать, пожалуйста!
вот как решила я с массивом
var a:array [1..6] of real;
i,k:integer;
begin
for i:=1 to 6 do
begin
write('введите ',i,' элемент массива');
readln(a[i]);
end;
k:=0;
for i:=1 to 6 do if trunc(a[i]) mod 3=0
then
k:=k+1;
write('количество чисел кратных трем :',k);
readln;
end.
Не запоминать числа, а сразу после ввода проверять на кратность трем:
var
X, i, k : integer;
begin
k := 0;
for i := 1 to 6 do
begin
write ('введите ',i,'-е число');
readln (X);
if X mod 3 = 0 then k := k + 1;
end;
write ('количество чисел кратных трем :', k);
readln;
end.
volvo
спасибо вам огромное! вы такой умный!!!
Novo