1,5 и 4 потому что X и У не могут быть одинаковыми
Var
a: array [1..10000,1..10000] of integer;
c,s,b,n,m: integer;
begin
readln (n,m);
for b:=1 to n do
for c:=1 to m do
readln (a[b,c]);
for b:=1 to n do
for c:=1 to m do
if ((a[b,c] < 10) and (a[b,c] > 0)) then s:= s+a[b,c];
writeln (s);
end.
Преобразуем по схеме Горнера, избавляясь от вычисления степени х.
y = 5x²+7x-30 = -30+x(7+5x))
<u>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
Writeln('Y=',-30+x*(7+5*x))
end.
Это очень легко.Ну во первых у тебя должна быть презентация к проекту.Во вторых должен быть текст который ты должен знать наизусть.В третьтих не беспокоится и рассказывать с интересом чтобы каждый хорошо слушал.Надеюсь я тебе помог.
Var a: Real;
begin
writeln('Введите сторону a: ');
readln(a);
writeln('S=',a*a);
writeln('P=',4*a);
end.