Pascal abc с while, for, if. на промежутке от a до b найти все числа и их количество(k), которые делятся на сумму(s) своих цифр. тест: 10 20 10 12 18 20 4
Var a,b,i,j,k,s:integer; begin write('a='); readln(a); write('b='); readln(b); k:=0; for i:=a to b do begin j:=i; s:=0; while (j>0) do begin s:=s+(j mod 10); j:=j div 10; end; if (i mod s)=0 then begin write(i,' '); inc(k); end; end; writeln; writeln('k=',k); end.
Информационная деятельность – деятельность, обеспечивающая сбор, обработку, хранение, поиск и распространение информации, а также формирование информационного ресурса и организацию доступа к нему.Информация всегда играла чрезвычайно важную роль в жизни человека. Кто владеет наибольшим объемом информации по какому-либо вопросу, тот всегда находится в более выигрышном положении по сравнению с остальными. Общеизвестно высказывание о том, что тот, кто владеет информацией, тот владеет и миром.С давних времен сбор и систематизация сведений об окружающем мире человеку выживать в нелегких условиях – из поколения в поколение передавался опыт и навыки изготовления орудий охоты и труда, создания одежды и лекарств. Информация постоянно обновлялась и дополнялась – каждое изученное явление позволяло перейти к чему-то новому, более сложному.Со временем большие объемы данных об окружающем мире по развитию научно-технического прогресса и, как следствие, всего общества в целом – человек смог научится управлять различными видами вещества и энергии.С течением времени роль информации в жизни человека становилась все существеннее. Сейчас, в первой половине XXI века роль информации в жизни человека является определяющей – чем больше навыков и знаний он имеет, тем выше ценится как специалист и сотрудник, тем больше имеет уважения в обществе.
CD/DVD-привод Флоппи-привод Клавиатура Винчестер или накопитель внутренний Опять же флоппи-дисковод наверно Видеокарта Звуковая карта Сетевая карта Да Временная память компьютера сохраняет необходимые для запуска и корректной работы приложений файлы Хранение информации Обработка задач Нет Да Перечень накопителей подключенных к пк Документы - Удаленные файлы Хер ее знает. Удаляет безвозвратно может - Панель управления Клик пкм-создать-выбрать что создать Тоже самое только выбрать создать ярлык Тоже самое только выбрать создать папку Пкм на предмет-переименовать Не приводит Уже выше написал - - Для быстрого запуска программы
a,b,i,j,k,s:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
k:=0;
for i:=a to b do
begin
j:=i;
s:=0;
while (j>0) do
begin
s:=s+(j mod 10);
j:=j div 10;
end;
if (i mod s)=0 then
begin
write(i,' ');
inc(k);
end;
end;
writeln;
writeln('k=',k);
end.