Скачать исходники. Исходники для студента. Программирование скачать. C++. HTML. Delphi исходники. JQuery. Бесплатные скрипты » Pascal

Определение, является ли число простым

codeserfer — Sat, 15 Jan 2011 20:25:02 +0000

Данный код на паскале поможет Вам определить, является ли данное число простым var f: boolean; n,i: integer; Begin writeln ('vvedite chislo'); readln (n); f:= true; i:=2; while (i<sqrt (n)) and f do begin if n mod i = 0 then f:=false; i:=i+1; end; if f then write ('prostoe') else write ('sostavnoe'); readln end. Или еще

The post Определение, является ли число простым appeared first on Скачать исходники. Исходники для студента. Программирование скачать. C++. HTML. Delphi исходники. JQuery. Бесплатные скрипты.

Нахождение всех совершенных чисел от 1 до n

codeserfer — Sat, 15 Jan 2011 20:22:53 +0000

Данная программа позволяет найти все совершенные числа из промежутка от 1 до заданного n. var n, i, s, j:integer; Begin s:=0; for i:=1 to 10000 do begin s:=0; for j:=1 to i-1 do if i mod j = 0 then s:=s+j; if s=i then writeln (i); end; readln end.

The post Нахождение всех совершенных чисел от 1 до n appeared first on Скачать исходники. Исходники для студента. Программирование скачать. C++. HTML. Delphi исходники. JQuery. Бесплатные скрипты.

Нахождение наибольшего элемента в массиве на Pascal

codeserfer — Thu, 13 Jan 2011 20:20:32 +0000

Простенькая задача на паскале. Необходимо вывести значение наибольшего элемента в массиве. var a, n, i, max : integer; Begin writeln ('vvedite kolichestvo elementov'); readln (n); max := 0; a:=0; for i:=0 to n-1 do begin readln (a); if a>max then max := a; end; writeln (max); readln end. Формат входных данных Сначала задано число N

The post Нахождение наибольшего элемента в массиве на Pascal appeared first on Скачать исходники. Исходники для студента. Программирование скачать. C++. HTML. Delphi исходники. JQuery. Бесплатные скрипты.

Определение, является ли число совершенным

codeserfer — Sat, 04 Dec 2010 20:18:44 +0000

Простенькая программа для определения, является ли число совершенным var n, i, s:integer; Begin writeln ('vvedite n'); readln (n); s:=0; for i:=1 to n-1 do if n mod i = 0 then s:=s+i; if s=n then writeln ('chislo sovershennoe') else writeln ('chislo nesovershennoe'); readln end.

The post Определение, является ли число совершенным appeared first on Скачать исходники. Исходники для студента. Программирование скачать. C++. HTML. Delphi исходники. JQuery. Бесплатные скрипты.

Уместится ли один прямоугольник в другом

codeserfer — Thu, 14 Oct 2010 20:01:58 +0000

Попросили написать программу на паскале для определения, влезет ли прямоугольник со сторонами a и b в прямоугольник со сторонами c и d. Код простой и на мой взгляд даже не требует пояснения.. var a, b, c, d: integer; Begin writeln ('Введите a, b, c, d'); readln (a, b, c, d); if (a<=c) and (b<=d) or

The post Уместится ли один прямоугольник в другом appeared first on Скачать исходники. Исходники для студента. Программирование скачать. C++. HTML. Delphi исходники. JQuery. Бесплатные скрипты.