Первый знак - это большая греческая (чуть не написал свадьба :)) буква Сигма, что значит Сумма элементов по переменной b от 3 до N с шагом ∆b. Она применяется, если d <= 0 Второй знак -это большая греческая буква Пи, что значит Произведение элементов по переменной с от 2 до 9. Она применяется, если d > 0 var a, b, c, d, db, N, L: real writeln('Vvedite a, d, db, N : '); readln ( a, d, db, N ); if (d <= 0) then begin L := 0; b := 3; while b <= N do begin L := L + b - a*d; b := b + db; end; end; else
begin L := 1; for c := 2 to 9 do L := L*(pow(c, a) + tan(d)); end; writeln (L); end.
Действительные числа a, b, c (a не равно 0). Выяснить, имеет ли квадратное уравнение действительные корни. Если действительные корни имеются, то найти их. В противном случае ответом должно служить сообщение, что действительных корней нет
Var n,i:integer; S:real; Begin Write('n = ');ReadLn(n); WriteLn('1)'); S:=0; i:=2; While i<=n do Begin S:=S+i*i; i:=i+2; End; WriteLn('S = ',S); WriteLn('2)'); Write(n); i:=n div 2; While i > 0 do Begin if n mod i = 0 then Write(' ',i); i:=i-1 End; End.
Program ryazantsev; var i,k:integer; begin k:=0; for i:=1 to 105 do if (((i mod 10) mod 2 = 0) and (i mod 3 = 0)) or (i<10) then k:=k+1; writeln(k) end.
Таких чисел 25, запустите программу и убедитесь сами.