Var n, i, sum: integer;
begin
read(n);
sum := 0;
for i:=1 to n do
sum := sum + (2*i-1);
writeln(sum);
end.
Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.
ну например
в первом столбике пишешь числа попорядку
во втором столбике пишешь "=A1*A1" и протягиваешь вниз на всю таблицу
в третем пишешь "=A1*A2" и протягиваешь вниз на всю таблицу
в первом столбике у нас получается число
во втором квадрат числа
в третем - куб числа
Пояснение ребуса:
При "н" "т" катЕР
Ответ: принтер.
Var
k, m, num: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := -7; Dat[2] := -8;
Dat[3] := 3; Dat[4] := 6;
Dat[5] := -4; Dat[6] := 3;
Dat[7] := 5; Dat[8] := 5;
Dat[9] := 7;Dat[10] := 1;
num:=1;
m := Dat[1];
for k := 2 to 10 do
if Dat [ k] *m< 0 then
begin
m := Dat[k];
num:= k
end;
writeln(m);
End.
Ответ
3