Помощь - Поиск - Пользователи - Календарь
Полная версия: Найти числа, кратные трем, при вводе с клавиатуры
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.

жду ваших гениальных идей!
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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.