Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Найти числа, кратные трем, при вводе с клавиатуры

Автор: nadja yak 6.03.2011 16:15

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

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.

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

Автор: volvo 6.03.2011 16:30

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

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 6.03.2011 16:53

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

Автор: what is gabapentin prescribed fo 8.12.2021 6:19

Novo