1.
Var
a,b,c:integer;
Begin
Write('Введите а, в, с: ');
Readln(a,b,c);
if abs(a+b+c)>3 then write('Их абсолютное значение суммы больше трёх. Уменьшаю на 1 каждое число - ',a,'-1 = ',a-1,', ',b,'-1 = ',b-1,', ',c,'-1 = ',c-1) else write('Их абсолютное значение суммы не превышает трёх. Показываю квадраты этих чисел - ',a,'^2 = ',sqr(a),', ',b,'^2 = ',sqr(b),', ',c,'^2 = ',sqr(c));
End.
2.
Var r,a:integer;
Begin
Write('Введите радиус круга ');
Readln(r);
Write('Введите сторону квадрата ');
Readln(a);
writeln('S круга = ',sqr(r)*pi,', S квадрата = ',sqr(a));
if (sqr(r)*pi) > (sqr(a)) then write('S круга больше, чем S квадрата') else if (sqr(r)*pi) < (sqr(a)) then write('S квадрата больше, чем S круга') Else write('S круга = S квадрата');
End.
Может покрасить ее, а она перетечет в другой кран и сообщит например что все хорошо)
В 7сс семь цифр: 0 1 2 3 4 5 6
в 9сс девять цифр: 0 1 2 3 4 5 6 7 8
program p1;
var
y, e, x, d:real;
begin
y:=ex * d;
readln(e);
readln(x);
readln(d);
writeln(y);
end.
Ответ:
#include <iostream>
using namespace std;
int main()
{
unsigned long p, pp;
int F, n, i;
setlocale(LC_ALL, "russian");
cout << "Население = ";
cin >> p;
cout << "Прирост = ";
cin >> F;
cout << "n = ";
cin >> n;
i = 0;
pp = p;
while (pp < p * n) {
pp += (int) pp / F;
i++;
}
cout << "\nЧерез " << i << " лет";
}
