Логика

[КоТэ LOvE YoU]

1 Определить, является ли число А делителем числа В? А наоборот?

2 Определить, является ли заданное шестизначное число счастливым. (Счастливым называют такое шестизначное число, у которого сумма его первых трех цифр равна сумме его по-следних трех цифр.)

3 Плотность воздуха убывает с высотой по закону
р = р0 е-bz,
где р — плотность на высоте b метров,
р = 1,29 кг/м3,
z = 1,25*10-4.
Напечатать таблицу зависимости плотности от высоты для значений от 0 до 1000 м через каждые 100 м.


4 Дано натуральное число. Найти его наименьший делитель, отличный от 1.

5 Найти все двузначные числа, сумма квадратов цифр которых делится на 13;

6 Составить программу, которая в зависимости от порядкового номера дня недели (1, 2, ..., 7) выводит на экран его название (понедельник, вторник, ..., воскресенье).
Заранее благодарю

[Mad_Cat]

5

for i:=1 to 9 do
for j:=0 to 9 do
if (sqr(i)+sqr(j)) mod 13=0 then writeln(i,j);

6

case d of
1:writeln('Monday');
2:writeln('tuesday');
{...}
7:writeln('sunday')
else writeln('No day');
end;

3

for i:=1 to 10 do
write(i*100, '  ',(po*exp(-b*z)):6:3);

[Don Karleone]

1) if (B mod A) = 0 then writeln('А является делителем В');
    if (A mod B) = 0 then writeln('В является делителем А);

4) var
      n, i: integer;
      flag: boolean;
    begin
      readln(n);
      i:=1;
      flag:=false; 
      while not flag do
        begin
          Inc(i);
          if (n mod i) = 0 then flag:=true;
        end;
      writeln('наименьший делитель отличный от 1: ',i);
    end;

[DRAgon™]

3Как я понял вроде так

uses crt;
var p,z,p1:real;
b,e,i:Integer;
begin
p:=1.29;
z:=1.25*10-4;
Write('b='); readln(b);
Write('e='); readln(e);
ClrScr;
Gotoxy(2,1);
WriteLn('|Метры|');
for i:=0 to B do begin
i:=i+100;
Writeln(i:6);
end;
Writeln;
WriteLn('|Плотность|');
for i:=0 to E do
WriteLn('   ', p*e-i*z);
end.

таблицу уже сама зделаешь нормальную

[DRAgon™]

хех,уже успели на другом форуме запихать задачки
http://www.cyberforum.ru/pascal/thread174059.html