Паскаль программу написать введите длину и ширину прямоугольника ( два целых положительных числа вычислить площадь и периметр прямоугольника

Var a, b: real; begin   readln(a, b);   writeln('площадь равна ', a*b);   writeln('периметр равен ', 2*(a + b)); end.

чтобы перевести число из n-системы счисления в 10-ую надо

каждую цифру числа умножать на основание системы счисления в степени позиции этой цифры в числе начиная считать справа от нуля и получить сумму из этих произведений.

так например 10 из двоичной в 10-ую > 1*2²+0* = 1*2 + 0*1 = 2.

а чтобы перевести из 16-ой надо иметь ввиду чтобы кроме цифр там есть и буквы, но буквы означают числа.

a = 10, b = и так далее. просто потому что цифры кончились.

(на самом деле так можно и свою систему счисления придумать где вместо цифр будут бантики и птички).

к примеру чтобы перевести ab из 16-ой в 10-ую надо:

a*+b* = 10*16+11*1 = 160+11 = 171.

1

вводим переменные x и y.

переменная k -количество равно нулю и i равно единице.                            

          repeat

          k: =k+1;

          i: =i+2;

      until i> =(x+y)

2

program specialhappytickets;

var

  i, j, k, l, m, n, s: integer;

begin

  s : = 0;

  for i : = 0 to 9 do

    for j : = 0 to 9 do

      for k : = 0 to 9 do

        for l : = 0 to 9 do

          for m : = 0 to 9 do

            for n : = 0 to 9 do

              if (i + j + k) = (l + m + n) then

                if i + j + k = 13 then s : = s + 1;

  writeln(s)

end.

program specialhappytickets;

var

  i, j, k, l, m, n, s: integer;

begin

  s : = 0;

  for i : = 0 to 9 do

    for j : = 0 to 9 do

      for k : = 0 to 9 do

        for l : = 0 to 9 do

          for m : = 0 to 9 do

            for n : = 0 to 9 do

              if (i + j + k) = (l + m + n) then

                if i + j + k = 13 then s : = s + 1;

  writeln(s)

end.

результат выполнения программы:

5625

3

var a,i: integer; b: boolean;

begin

a: =1;

repeat

b: =true;

for i: =2 to 6 do

  b: =b and (a mod i = (i-1));

if not b then a: =a+1;

until b;

writeln('a = ',a);

end.

результат:

a = 59

4

program summa;

var a,x: integer;  

i,s: integer;

begin 

writeln('введите целое число');

  readln( a );

  x: =a;  

s: =0;  

while ( x< > 0 ) do   begin     s : = s + (x mod 10);  

  x : = x div 10;  

end;

writeln( 'сумма цифр числа ',a,' = ', s );

end.

5

1. количество нулей в конце числа равно количеству десяток в этом числе. поскольку число 10 состоит из двух простых множителей: 2 и 5, то в конце числа будет столько же нулей, сколько пятерок в числе (т. к. двоек в 100! намного больше).

  2. найдем число пятерок в 100! среди чисел от 1 до 100:

1) 5^3 - нет;

2) 5^2 - 25; 50; 75 и 100 - 4 числа;

3) кратных 5: 100/5 = 20 чисел.

6

const n=8;

var a: array[1..n] of integer;

    i,z: integer;

begin

z: =1;

for i: =1 to n do

begin

  a[i]: =z*(2*i-1);

  write(a[i],' ');

  z: =-z;

end;

end.

7

var i,n: integer;

begin

write ('количество раз');

readln(n);

for i: =1 to n do

  write(0);

end.