Другие разделы

Правила

FAQ

Пользователи

Комментарии

Друзья сайта

Flash Loops

RaceBook

Информатика

Простейшие алгоритмы для Delphi/pascal

"Вывести на печать все делители заданного числа"

  1. Var
  2.   a,d:integer;
  3. begin
  4.   writeln('Vvedite chislo');
  5.   readln(a);
  6.   writeln('deliteli chisla');
  7.   for d:=1 to a div 2 do
  8.   if a mod d=0 then writeln(d);
  9.   writeln(a);
  10. readln;
  11. end.

"Определение количества цифр числа"

  1. Var
  2.   a,ch,kol:integer;
  3. begin
  4.   randomize;
  5.   a:=random(1000000000);
  6.   ch:=a;
  7.   kol:=0;
  8.   while a<>0 do
  9.     begin
  10.       a:=a div 10;
  11.       kol:=kol+1;
  12.     end;
  13.   writeln('chislo ',ch, ' kolichestvo cifr v chisle ',kol);
  14. readln;
  15. end.

"Определение суммы цифр числа"

  1. Var
  2.   a,s,t:integer;
  3. begin
  4.   writeln('Vvedite chislo');
  5.   readln(a);
  6.   s:=0;
  7.   t:=0;
  8.   while a<>0 do
  9.     begin
  10.       t:=a mod 10;
  11.       a:=a div 10;
  12.       s:=s+t;
  13.     end;
  14.   writeln('summa cifr chisla= ',s);
  15. readln;
  16. end.

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

  1. Var
  2.   a,os,t,ch:integer;
  3. begin
  4.   writeln('Vvedite chislo');
  5.   readln(a);
  6.   ch:=0;
  7.   t:=a;
  8.   os:=0;
  9.   while a<>0 do
  10.     begin
  11.       os:=a mod 10;
  12.       ch:=ch*10+os;
  13.       a:=a div 10;
  14.     end;
  15.   if t=ch then writeln('zadanoe chislo polindrom')
  16.   else writeln('zadanoe chislo ne polindrom');
  17. readln;
  18. end.

"Определите и напечатайте простые делители числа"

  1. Var
  2.   flag:boolean;
  3.   a,d,pd:integer;
  4. begin
  5.   writeln('Vvedite chislo');
  6.   readln(a);
  7.   flag:=true;
  8.   for d:=1 to a div 2 do
  9.     if a mod d=0 then
  10.       begin
  11.         for pd:=2 to d div 2 do
  12.           if d mod pd=0 then flag:=false;
  13.         if flag then writeln(d);
  14.       end;
  15. readln;
  16. end.

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

  1. Var
  2.   a,d,s:integer;
  3. begin
  4.   writeln('Vvedite chislo');
  5.   readln(a);
  6.   s:=0;
  7.   for d:=1 to a div 2 do
  8.     if a mod d=0 then s:=s+d;
  9.   if a=s then writeln('chislo soversheno')
  10.   else writeln('chislo ne soversheno');
  11. readln;
  12. end.

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

  1. Var
  2.   flag:boolean;
  3.   a,d:integer;
  4. begin
  5.   writeln('Vvedite chislo');
  6.   readln(a);
  7.   flag:=true;
  8.   for d:=2 to a div 2 do
  9.   if a mod d=0 then flag:=false;
  10.   if flag then writeln('chislo prostoe')
  11.   else writeln('chislo sostavnoe');
  12. readln;
  13. end.

© Филимошин В. Ю., 2009-2015

Вход

Логин:

Зарегистрировать

Пароль:

Забыли пароль?

запомнить

Пятнашки

1
4
2
5
13
12
9
3
7
6
11
8
14
10
15

Опрос

Как Вы узнали об этом сайте?

От админа (1036)

48.3%

От друзей (32)

1.49%

Поисковик выдал... (987)

46.0%

Увидел(а) на других сайтах (46)

2.14%

Другое (41)

1.91%

Случайное фото

Зимнее озеро Аракуль

Счётчики

Яндекс.Метрика

Internet Map

Каталог@Mail.ru - каталог ресурсов интернет