Program Pl;
var a,b:real;
begin
write('Сторона а=');
readln(a);
write('Сторона b=');
readln(b);
writeln('Периметр прямоугольника = ', a*2+b*2);
writeln('Площадь прямоугольника = ', a*b, ' кв. см')
End.
var s,vk:real;
m:integer;
begin
s:=100000;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+0.04*s;
s:=1.04*s;
m:=m+1;
end;
write(m);
end.
Это решение для ваших параметров.
Uses Crt;
var s,vk,pc:real;
m:integer;
begin
clrscr;
Writeln('Введите сумму вклада:');
Read(s);
Writeln('Введите месячный процент(%):');
read(pc);
pc:=pc/100;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+pc*s;
s:=(1+pc)*s;
m:=m+1;
end;
write('Вклад превысит 30 руб через ',m,' месяцев');
end.
Это решение для задаваемых параметров
Вопросы, недочеты в ЛС
Пусть х - любая из цифр 1,2,4.
Тогда количество чисел вида 3хх = 3^2 = 9;
количество чисел вида х3х = 3^2 = 9;
количество чисел вида хх3 = 3^2 = 9;
количество чисел вида 33х = 3;
количество чисел вида 3х3 = 3;
количество чисел вида х33 = 3;
одно число 333
Итого:
9+9+9+3+3+3+1 = 37
for i := 0 to 10 do
А[i]:=i;
for i := 0 to 4 do
begin
К := A[t];
A[i] := A[10 * i] * K;
A[10 * i] := K;
<span>end;</span>
трех зайцев по углам, двоих вдоль стен