Найти числа, кратные трем, при вводе с клавиатуры, интересная задача, без понятия как решить Опции

[nadja yak]

привет всем! вот задача на паскаль
Составить программу нахождения количества чисел кратных трем из шести вводимых с клавиатуры.
интересно что решение требуется БЕЗ МАССИВА с циклом фор.
помогите , или идею дайте как это сделать, пожалуйста!
вот как решила я с массивом

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.

жду ваших гениальных идей!

Сообщение отредактировано: Lapp - 6.03.2011 17:14

[volvo]

Не запоминать числа, а сразу после ввода проверять на кратность трем:

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.

[nadja yak]

volvo
спасибо вам огромное! вы такой умный!!!

[what is gabapentin prescribed fo]

Novo