Var A, B, C, Del : integer; begin write('Введите число A: '); readln(A); write('Введите число B: '); readln(B); write('Введите число C: '); readln(C); write('Введите делитель: '); readln(Del); write('Число ', Del, ' является делителем таких чисел: '); if A mod Del = 0 then write(A, ' '); if B mod Del = 0 then write(B, ' '); if C mod Del = 0 then write(C, ' '); end.
1 кодирование 2 Систематизация это распределение файлов "по полочкам" - по дате добавления, по алфавиту и т. д. 3. нахождение информации в глобальной сети, на сервере и т. д. 4. Форма представления бывает разной - в виде текста , в виде таблицы, в виде картинки и т. д. 5. К математическому типу и текстовому. 6. Они могут быть сделаны на разных текстовых редакторах. 7. По алфавиту - фамилии в школьном журнале, файлы, документы.. В порядке убывания - цифры, числа... в хронологической последовательности - даты, события, файлы, документы.
1 кодирование 2 Систематизация это распределение файлов "по полочкам" - по дате добавления, по алфавиту и т. д. 3. нахождение информации в глобальной сети, на сервере и т. д. 4. Форма представления бывает разной - в виде текста , в виде таблицы, в виде картинки и т. д. 5. К математическому типу и текстовому. 6. Они могут быть сделаны на разных текстовых редакторах. 7. По алфавиту - фамилии в школьном журнале, файлы, документы.. В порядке убывания - цифры, числа... в хронологической последовательности - даты, события, файлы, документы.
A, B, C, Del : integer;
begin
write('Введите число A: ');
readln(A);
write('Введите число B: ');
readln(B);
write('Введите число C: ');
readln(C);
write('Введите делитель: ');
readln(Del);
write('Число ', Del, ' является делителем таких чисел: ');
if A mod Del = 0 then write(A, ' ');
if B mod Del = 0 then write(B, ' ');
if C mod Del = 0 then write(C, ' ');
end.