Составьте программу для нахождения суммы чисел 20 до 60 кратных пяти.по турбо паскалю

var

  i,s: longint;

begin

  for i: =20 to 60 do if i mod 5=0 then inc(s,i);

writeln(s);

end.

 

var

i,s: integer;

begin

s: =0;

for i: =20 to 60 do

if i mod 5 =0 then s: =s+i;

writeln(s);

end.

пакет прикладных программ – это комплекс программ, предназначенный для решения определённого класса по некоторой тематике.

общего назначения - универсальные программные продукты, предназначенные для автоматизации разработки и эксплуатации функциональных пользователя.

к этому классу относятся:

редакторы: текстовые (word, wordpad) и графические (coreldraw,photoshop);

электронные таблицы (excel, lotus 1-2-3);

системы базами данных (access, oracle);

средства подготовки презентаций (powerpoint);

интегрированные ;

системы автоматизации проектирования (autocad);

оболочки экспертных систем и систем искусственного интеллекта и др.

#include < iostream> #include < ctime> using namespace std; int main () { srand (time(null)); setlocale (0,"russian"); int n; cout < < "кол-во чисел: "; cin > > n; int *array=new int [n]; cout < < "массив: "; for (int i=0; i< n; i++) { array[i]=rand()%30; cout < < array[i] < < ' '; } int x=1; for (int i=0; i< n; i++) { x*=array[i]; }cout < < "произведение: " < < x; system ("pause> > void"); return 0; }