1)
program qq;
var a,b,s,p : integer;
begin
writeln('Введите стороны прямоугольника');
read(a,b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь прямоугольника равна ',s);
writeln('Периметр прямоугольника равен ',p);
end.
2)
Var a,b : Real;
Function SrAr(aa,bb :Real) : Real;
Begin
SrAr:=(aa+bb)/2;
end;
Begin
Readln(a,b);
Writeln(SrAr(a,b));
end.
<span>C:\, school, <span>physics, school, math, notes.</span></span>
1)
int f(int x,int p, int y)
{int k=0;
while(x<y)
{
x=+p*x/100;
k++;
}
return k;
}
2)
int f(int A)
{int x=1, y=1, n=2;
while(x<A || y<A)
{
if(x<y)
x=+y;
else
y=+x;
}
n++;
}
if(A=y || A=x )
return n;
else
return -1;
}
1. Объявлен целочисленный массив из 100 элементов, проиндексированных от 0 до 99.
2. Будет выведено p=2s=0
В параметрах процедуры Incr отсутствует var перед q, поэтому значение параметра при выходе из процедуры не изменится. Процедура увеличивает на 1 значение глобальной переменной p. Первоначально р=0 и два вызова процедуры сделают р=2. Значения s, как было выше пояснено, процедура не изменит, поэтому оно так и останется нулевым.
#include <iostream>
#include <string>
int main()
{
std::string number;
std::cin >> number;
std::cout << number << " - " << number.length() << "-х значное число." << std::endl;
return 0;
}