Вам предоставлена программа на языке C , объяснить работу программы и объяснить значения функций. #include #include #define DELIM " \t\n" int main(void) { char buf[BUFSIZ], * p; while ( printf("\nString: ") && fgets(buf, BUFSIZ, stdin) && *buf != '\n' && printf("Result: ") ) for ( p = strtok(buf, DELIM); p; p = strtok(NULL, DELIM) ) if ( strchr(p, 'A') ) printf("%s ", p); return 0; }

//Pascal
//1
begin
writeln((15 div 4)*18);
end.

//2
var a, b, c: real;
begin
write('Введите стороны треугольника A B C: '); readln(a, b, c);
writeln('Периметр = ', a + b + c);
end.

//3
var a, b: real;
begin
write('Введите стороны прямоугольника A B: '); readln(a, b);
writeln('Площадь = ', a * b);
writeln('Периметр = ', 2 * (a + b));
end.

//4
var a, b, c: real;
begin
write('Введите ребра A, B, C: '); readln(a, b, c);
writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1);
writeln('Объем = ', (a*b*c):0:1);
end.

//5
var r: real;
begin
write('Введите радиус: '); readln(r);
writeln('Длина окружности = ', (2 * pi * r):0:1);
end.