Предмет: Информатика,
автор: xeon493
Переделать программу под массив t1,t2,t3 Pascal.ABC 40 баллов
program i;
var a,s,v,t1,t2,t3,tc: real;
begin
writeln('Введите t1');
readln(t1);
writeln('Введите t2');
readln(t2);
writeln('Введите t3');
readln(t3);
WriteLn('Введите s');
Read(s);
tc:=((t1+t2+t3)/3);
writeln('tc=',tc);
a:=(2*s)/(tc*tc);
WriteLn('a=',a);
v:=(a*tc);
WriteLn('v=',v)
end.
Ответы
Автор ответа:
1
Ответ:
program i;
var a,s,v,tc: real;
j:integer;
t:array[1..3] of real;
begin
tc:=0;
for j:=1 to 3 do
begin
writeln('Введите t',j);
readln(t[j]);
tc:=tc+t[j]
end;
writeln('Введите s');
read(s);
tc:=tc/3;
writeln('tc=',tc);
a:=(2*s)/(tc*tc);
writeln('a=',a);
v:=(a*tc);
writeln('v=',v)
end.
Похожие вопросы
Предмет: Английский язык,
автор: borzykharina
Предмет: Окружающий мир,
автор: egorka2828
Предмет: Русский язык,
автор: milenamagamedova
Предмет: Литература,
автор: alinamileshina5
Предмет: География,
автор: evelinametelska