1) 75
2)226
3)695
Жду лайкосики и удачив информатике))
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
#include <stdio.h>
#include <stdlib.h>
#include <locale>
int main()
{
setlocale(LC_ALL, "RUS");
int g[3];
for (int i = 0; i < 3; i++)
{
printf("Введите рост %d спортсмена >> ", i+1);
scanf("%d", &g[i]);
}
if (g[0] < g[1] && g[1] < g[2])
printf("on growth");
else
printf("don't on growth");
system("pause");
}
Var a,b,c:real;
begin
write('Введите стороны треугольника а,b и c: ');
readln(a,b,c);
if (a=b) and(b=c) then
writeln('Треугольник равносторонний')
else writeln('Треугольник неравносторонний');
<span>end.</span>