Дана программа на языке программирования Паскаль. Запиши данную программу и запусти. program z1;

var
mas, A: array[1..10] of real;
begin
mas[1]:=10;
mas[5]:=27;
mas[9]:=84;
A[1]:=(mas[9]-mas[1])*mas[5];
write(A[1]:5:0);
read;
end.

#include <stdio.h>
#include <math.h>

int main(){
    const float a=2.5, b=0.4;
    float t,w;
    for(t=-1.0;t<1.0;t+=0.2){
        if (t<0.1)
            w=a*t*t+b*sin(t)+1;
        else if (t==0.1)
            w=a*t+b;
        else
            w=sqrt(a*t*t+b*cos(t)+1);
        printf("t=%f, w=%f\n",t,w);
    }
    return 0;
}
Результат выполнения программы:
t=-1.000000, w=3.163412
t=-0.800000, w=2.313058
t=-0.600000, w=1.674143
t=-0.400000, w=1.244233
t=-0.200000, w=1.020532
t=-0.000000, w=1.000000
t=0.200000, w=1.221485
t=0.400000, w=1.329821
t=0.600000, w=1.493363
t=0.800000, w=1.696668
t=1.000000, w=1.927724


Process exited after 0.08651 seconds with return value 0
Для продолжения нажмите любую клавишу . . .

#include <stdio.h>
#include <math.h>

int main(){
    const float a=2.5, b=0.4;
    float t,w;
    for(t=-1.0;t<1.0;t+=0.2){
        if (t<0.1)
            w=a*t*t+b*sin(t)+1;
        else if (t==0.1)
            w=a*t+b;
        else
            w=sqrt(a*t*t+b*cos(t)+1);
        printf("t=%f, w=%f\n",t,w);
    }
    return 0;
}
Результат выполнения программы:
t=-1.000000, w=3.163412
t=-0.800000, w=2.313058
t=-0.600000, w=1.674143
t=-0.400000, w=1.244233
t=-0.200000, w=1.020532
t=-0.000000, w=1.000000
t=0.200000, w=1.221485
t=0.400000, w=1.329821
t=0.600000, w=1.493363
t=0.800000, w=1.696668
t=1.000000, w=1.927724


Process exited after 0.08651 seconds with return value 0
Для продолжения нажмите любую клавишу . . .