Вот программа по формуле
var a:integer;
s:real;
begin
s:=1;
for a:=1 to 15 do begin
if (a mod 2 = 1) then s:=s+(2/a);
end;
writeln('сумма дробей с числителем = 2 а знаменателем от 1 до 15 = ',s);
end.
а вот программа по словесной задаче
var a,s:integer;
begin
s:=1;
for a:=10 to 99 do begin
if a mod 3 = 0 then s:=s*a;
end;
writeln('произведение двузначных чисел кратных 3 = ',s);
end.
Ну что тут решать? Один мальчик высаживается на одном берегу, другой привет к солдатам. Мальчик выходит, садится солдат, плывет на другой берег, где его ждет другой мальчик. Выходит солдат, садится мальчик, плывет к своему другу на том берегу, забирает друга, и опять оба в лодке. Дальше действие повторяются, и так еще 39 раз.
1.
var
c: char;
a: string;
i: integer;
begin
writeln('Введите строку a:');
readln(a);
writeln('Введите символ с:');
readln(c);
for i:=length(a) downto 1 do
if a[i] = c then delete(a, i, 1);
writeln(a);
<span>end.
2.
var
b: string;
i, b1, b2: integer;
begin
writeln('Введите строку b:');
readln(b);
b1 := 0; b2 := 0;
for i:=1 to length(b) do
begin
if b[i] = '!' then inc(b1);
if b[i] = '?' then inc(b2);
end;
writeln('Восклицательных знаков: ', b1);
writeln('Вопросительных знаков: ', b2);
<span>end.</span></span>
1) Отрезаем 3 квадрата со стороной 131, остается прямоугольник со сторонами 131*32
2) Отрезаем 4 квадрата со стороной 32 ,(131-4*32 = 3), остается прямоугольник со сторонами 3*32
3) Отрезаем 10 квадратов со стороной 3 (32-10*3=2), остается прямоугольник со сторонами 2*3
4) Отрезаем квадрат со стороной 2 ,(3-2*1) остается прямоугольник со сторонами 1*2
5) Разрезаем на 2 квадрата со сторой 1
Итого получили: 3 квадрата 131*131; 4 квадрата - 32*32; 10 квадратов - 3*3,
1 квадрат - 2*2; 2 кадрата - 1*1
1. Решите примеры
1.) 2
2.) 3
3.) 1
4.) 0
5.) 0
6.) 3
7.) 1
2.) Определите результаты выполнения следующих действий
1.) {
a = 1819;
b = (div (а,100)) * 10 + 9 = 18 * 10 + 9 = 180 + 9 = 189
a = mod (10*b - a),100) = mod (189*10-1819,100) = mod (71,100) = 71
a = 71 ; b = 189
};
2.) {
а = 7*3 – 4 = 21 - 4 = 17
а = а*5 = 17*5 = 85
b = div (a,10) = div (85,10) = 8
a = mod (a,10) = mod (85,10) = 5
a = 5 ; b = 8
};
3.) {
a = 5
b =a+2 = 5+2 = 7
a = (a+2)*(b-3) = (5+2)*(7-3) = 7*4 = 28
b = div (a,5) = div (28,5) = 5
a = mod (a,b) = mod (28,5) = 3
a = a+1 = 3+1 = 4
b = mod (a+14,7) = mod (18,7) = 4
a = 4 ; b = 4
};
3.) Представить следующие числа в нормализованном виде, указать мантиссу и порядок
1.)
Нормализованный вид: 3.7412*10^-5
Мантисса: 3.7412
Порядок: -5
2.)
Нормализованный вид: 1.65723*10^7
Мантисса: 1.65723
Порядок: 7