Program jmia; var a,b,c,d,e,f,h: real; bigin readln(a,b,c,d,e,f,); d: =(c-3*a*a)/18,5-(a*a+b*b)/b-a+(a+c*c)/3*c*c; e: *b-d+a*(a/c)+(2*b+d)*(2*b+d)*2,5)/(3*a+c*c-d))+27*27*c; f: =3*e+(d/15)-a+(c*c*b/7); h=((a-b=35*d+f)/(f-*c writeln(h) end. где здесь
Исправлены СИНТАКСИЧЕСКИЕ ошибки: Program jmia; var a,b,c,d,e,f,h:real; begin readln(a,b,c); d:=(c-3*a*a)/18.5-(a*a+b*b)/b-a+(a+c*c)/3*c*c; e:=((b*b-d+a*(a/c)+(2*b+d)*(2*b+d)*2.5)/(3*a+c*c-d))+27*27*c; f:=3*e+(d/15)-a+(c*c*b/7); h:=((a-b+35*d+f)/(f-a))-21*c; writeln(h); end.
Var mas:array[1..1000, 1..1000] of integer; N,M,i,j,k:integer;
Begin Writeln('Введите размер матрицы N*M'); Write('N = '); readln(N); Write('M = '); readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1) then Writeln('Ошибка, указанные значения выходят за пределы матрицы') else Begin Writeln('Введите элементы матрицы');
k:=0; for i:=1 to N do for j:=1 to M do Begin readln(mas[i,j]); if (mas[i,j] mod 2 = 0) then k:=k+1; end;
Writeln(); Writeln('Исходная матрица');
for i:=1 to N do Begin for j:=1 to M do Begin Write(mas[i,j], ' ') end; Writeln(); end;
Writeln(); Writeln('Количество четных элементов = ',k); end;
Var begin readln(n); if n=1 then begin writeln('1 месяц');writeln('кол-во дней');end; if n=2 then begin writeln('2 месяц');writeln('кол-во дней');end; if n=3 then begin writeln('3 месяц');writeln('кол-во дней');end; if n=4 then begin writeln('4 месяц');writeln('кол-во дней');end; if n=5 then begin writeln('5 месяц');writeln('кол-во дней');end; if n=6 then begin writeln('6 месяц');writeln('кол-во дней');end; if n=7 then begin writeln('7 месяц');writeln('кол-во дней');end; if n=8 then begin writeln('8 месяц');writeln('кол-во дней');end; И так до 12 раз... Я не уверен что тебе нужен такой монстр... В место к примеру 1 месяца пишешь январь...
Program jmia;
var a,b,c,d,e,f,h:real;
begin
readln(a,b,c);
d:=(c-3*a*a)/18.5-(a*a+b*b)/b-a+(a+c*c)/3*c*c;
e:=((b*b-d+a*(a/c)+(2*b+d)*(2*b+d)*2.5)/(3*a+c*c-d))+27*27*c;
f:=3*e+(d/15)-a+(c*c*b/7);
h:=((a-b+35*d+f)/(f-a))-21*c;
writeln(h);
end.