Program gt;
var a,b,p:real;
i:integer;
begin
a:=10000;
p:=7.4;
for i:=1 to 8 do
begin
a:=a+a*p/100;
end;
writeln(a);
<span>end.</span>
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
setlocale(LC_ALL,"Russian");
cin >> n;
if ( n > 0 )
cout << "Положительное\n";
else
cout << "Отрицательное\n";
n = abs(n);
int ans = 0;
while (n)
{
n /= 10;
ans++;
}
cout << ans << " цифр\n";
}
Он окажется в исходной точке и нарисует квадрат стороной в 10 метров
)
если 2+1=3 тогда
х:=3
иначе
если 2=2 тогда
х:=2
y:=x
иначе
х:=1
y:=1
var
a,P:integer;
begin
writeln('Введите периметр равнобедренного треугольника: ');
read(P);
writeln('Введите основание равнобедренного треугольника: ');
read(a);
writeln('Боковая сторона равнобедренного треугольника: ',(P-a)/2);
<span>end.</span>